for my $k (sort mycmp @list) {}