$sorter = \&my_sorter;
foreach my $key (sort { &$sorter } keys %hash ) {
   # do something useful
}