.com.fj .com.sb .com.nf .com.co .com.mv .coop #### .com.co .com.fj .com.sb .com.mv .com.nf .com.sb .coop #### @list= sort { my ($sub1,$tld1)=split /\./,$a; my ($sub2,$tld2)= split /\./,$b; $tld1 cmp $tld2 } @list;