Help for this page
my %lu = map {$_ => 1} @array; foreach my $key (keys %H){ if ($lu{$key}) {
foreach my $elt (@A){ if (exists $hash{$elt}) {