Didn't look at your actual sorts, but this part

while ( my ($test,$val) = each %{$sorter->()} ) {

isn't going to work very well. &$sorter is going to be called for each iteration of the while loop, and, unless you arrange it to return a reference to the same hash each time, it will get the first key/value over and over.