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