use strict;
use warnings;
open my $as, '<', "data" or die "data open failed: $!\n";
open my $aq, '<', "pattern.txt" or die "pattern.txt open failed: $!\n";;

my %pattern;
while (<$aq>) {
    my @split = split;
    $pattern{"$split[0] $split[1]"} = 1;
}
while (<$as>) {
    my @split = split;
    if ($pattern{"$split[0] $split[1]"}) {
        print "$split[0]\t$split[1]\t$split[3]\n";
    }
}