} elsif ($sort eq 'v') {
  $sorter = sub {
  sort values %{
    sub {
      my %tosort;
      for my $test (keys %tests) {
      # Prints values correctly
      # Values go into hash correctly
#      print "Test: $test -- Total: ". $tests{$test}{"Value"} ."\n";
        $tosort{$test} = $tests{$test}{"Value"};
      }
      return \%tosort;
    };
  }
};
} else { $sorter = sub { sort keys %tests }; }