while ( my ($test,$val) = each %{$sorter->()} ) {
    print "Test: ". $test Val: $val\n"; # Sorter value
    # Show me the assocaited %tests stuff
    print "  Total: ". $tests{$test}{"Total"} ."\n";
    print "  Value: ". $tests{$test}{"Value"} ."\n\n";
  }