Help for this page
#{ # print "$_\n" for grep {$_} @a{keys %b}; ... if ($a{$bkey}){print "FOUND: [$bkey] in the hash \%a\n"} else{print "NOT found key [$bkey] in the hash \%a\n"} }