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