Sort domain names in Perl fast