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] : "" );