foreach my $key (keys %H){
    if (grep (/^$key$/,@A)){
        # do something;
    }
    else {
          # do something else;
    }
}