Select Code to Download

sub merge {
    my %hash;
...
for ( qw( j a p h ) ) {
    print lookup( $_, @ary2) ? "$_ Found\n" : "$_ Not found\n";
}

sub oops {
   return FALSE;
}
print "Oops 'FALSE' is true in Perl" if &oops;