Help for this page
.com.fj .com.sb ... .com.co .com.mv .coop
.com.co .com.fj ... .com.nf .com.sb .coop
@list= sort { my ($sub1,$tld1)=split /\./,$a; my ($sub2,$tld2)= spli +t /\./,$b; $tld1 cmp $tld2 } @list;