Select Code to Download

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

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

my $mol = '';
$mol = 'forty two'
    if  42 == $n;

my $mol =
    ! defined $n
...
    42 == $n
        ? 'forty two'
        : '';