my @tests = ( "tfred", "tjock", "tfortytwo" );

##</code><code>##

my %ntests = map { $_ => 0 } @tests;

##</code><code>##

my %ntests;
@ntests{@tests} = (0) x @tests;

##</code><code>##

my $mol = "forty two" x ($n == 42);

##</code><code>##

my $mol = ($n == 42) ? "forty two" : ""