use Unicode::Collate; @list = Unicode::Collate->new()->sort(@list);