$TLDs = Get-Content .\infiles.txt
$TLDStrings = @();
foreach ($TLD in $TLDs){
$split = $TLD.split(".")
$TLDStrings += ,$split
}
$TLDStrings = $TLDStrings|Sort-Object @{Expression={$_[$_.length-1],$_[$_.length-2],$_[$_.length-3],$_[$_.length-4],$_[$_.length-5],$_[$_.length-6]}; Ascending=$true}
$TLDStrings | %{[string]::join('.', $_)}