Select Code to Download

$VAR3 = 'URIBL_OB_SURBL+MPART_ALT_DIFF_COUNT';
$VAR4 = {
          'Total' => 10,
          'Value' => '3.716'
        };

$VAR5 = 'BAYES_00+FORGED_RCVD_HELO';
$VAR6 = {
...
           'Total' => 1,
           'Value' => '4.082'
         };

if ($sort eq 't') {
  $sorter = sub {
...
      };
    }
  };

} elsif ($sort eq 'v') {
  $sorter = sub {
...
  }
};
} else { $sorter = sub { sort keys %tests }; }

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

sub Print_Tests($$)
{
...
    print "  Value: $val->{Value}\n\n";
  }
}