my $real_sort_routine = sub {$sort_routing->(\%href)};
foreach (sort $real_sort_routine keys %{ $somehashref }) {
  #do stff
}