usage: perl ascendoly3.pl file1 file2

ascendoly3.pl

#!/usr/bin/perl
my $file1 = $ARGV[0];
my $file2 = $ARGV[1];
open my $R, "<", $file1 or die ("Could not open $file!");
open my $P, "<", $file2 or die ("Could not open $file!");
 
my %data = ();

while (my $Pline = <$P>) {
    $Pline =~ s/[\r\n]//g;
    my @P = split(/\t/,$Pline);
    $data{$P[0]} = \@P;
}

while (my $Rline = <$R>) {
    $Rline =~ s/[\r\n]//g;
    my @R_data = split (/\t/, $Rline);
    if ($data{$R_data[0]}) {
        print join("\t", @R_data, @{ $data{$P[0]} })."\n";
    }
}
 

close ($P);
close ($R);