sub mysort {
   my $sorter = shift;
   return sort $sorter @_;
}

my @sorted = mysort sorthash_alpha('foo'), @list;