@ntests{@tests} = () #### my %ntests; $ntests{$_}=0 for @tests; #### my $mol = ""; $mol = "forty two" if $n==42;