slatibart has asked for the wisdom of the Perl Monks concerning the following question:

Hi, i have a list of top level domains which also have sub tlds. Normal sort produces me a list like that .coop
but this would be the appreciated sorting .coop
First, the toplevel, then the sub tld. My ideas was to start with this code :
@list= sort { my ($sub1,$tld1)=split /\./,$a; my ($sub2,$tld2)= spli +t /\./,$b; $tld1 cmp $tld2 } @list;
But didn't worked as expected. Where is my code wrong ? Thanks