my $file1 = $ARGV[0];
my $file2 = $ARGV[1];

open(first_file,'<', $file1) or die $!;
my @FILE1 = <first_file>;
close(first_file);

open(sec_file,'<', $file2) or die $!;
my @FILE2 = <sec_file>;
close(sec_file);

@RESULTS;

for my $line(@FILE1){
        my($ID, @values) = split("\t", $line);

        for my $sec_line(@FILE2){
                my($ID2, @values2) = split("\t", $sec_line);
                

                if($ID eq $ID2){
                        push (@RESULTS, "$ID    @values @values2");

                }
        }
}

open(RESULTS,'>','results.txt') or die $!;
foreach(@results){
   print RESULTS "$_\n";
}
close(RESULTS);