.com.co .com.fj .com.mv .com.nf .com.sb .coop #### my @items = qw( .com.fj .com.sb .com.nf .com.co .com.mv .coop ); for (sort @items) { print "$_\n"; }