foreach my $elt (@A){
    if (exists $hash{$elt}) {