Select Code to Download

#! perl
use strict;
...
{
    print "Element '$a' found, key = $key\n" if grep {$_ eq $a} @{ $Ho
+A{$key} };
}

13:00 >perl 1095_SoPW.pl
Element 'X' found, key = yes2
Element 'X' found, key = yes1

13:12 >