Select Code to Download

my %tests = map { $_ => 0 ) qw/ tfred tjock tfortytwo / ;

my $tests ={};
map { $tests -> { $_ } = 0 } qw/ tfred tjock tfortytwo /;

callToSub(\%tests);

my $errstr = ( $case != OK ? $msg[$case] : "" );