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