my @items = qw(
.com.fj
.com.sb
.com.nf
.com.co
.com.mv
.coop
);

for (sort @items) {
    print "$_\n";
}