Select Code to Download

foreach my $test (keys %Tests) {
    print "Test is $test\n";
...
    #print "Num after sort:", $#{$Tests{$test}} + 1, "\n";
    #print join("\n", @{$Tests{$test}});
}