sub Print_Tests
{
  my $sort  = shift || "a";
  my $order = shift || "d";

  my (@ordered_keys);

  # Determine the order.
  if ($sort eq 't') {
    @ordered_keys = sort { $tests{$a}{"Total"} <=> $tests{$b}{"Total"} }
      keys %tests;
  } elsif ($sort eq 'v')) {
    @ordered_keys = sort { $tests{$a}{"Value"} <=> $tests{$b}{"Value"} }
      keys %tests;
  } else {
    @ordered_keys = sort keys %tests;
  }

  @ordered_keys = reverse @ordered_keys
     if $order eq 'd';

  foreach my $key (@ordered_keys) {
    my $val = $tests{$key};

    print "$key\n";
    print "  Total: $val->{Total}\n";
    print "  Value: $val->{Value}\n\n";
  }
}