open(INPA, $inpa) || die "Can't open $inpa";
open(INPB, $inpb) || die "Can't open $inpb";

my $a = <INPA>; chomp($a);
my $b = <INPB>;
while ($a && $b) {
    $b =~ /^(\d+) /;
    if ($a < $1) {
        $a = <INPA>; chomp($a);        
    }
    elsif ($a == $1) {
        print $b;
        $a = <INPA>; chomp($a);
        $b = <INPB>;
    }
    else {
        $b = <INPB>;
    }
}

close(INPA);
close(INPB);