foreach (sort $sort_routine->(\%href) keys %{ $somehashref }) {
  #do stff
}