Select Code to Download

use strict;
use warnings;
...
    my $file2_element = (split /\t/, $line)[5];
    print $_ . "\t$hash1{$file2_element}\n" if exists $hash1{$file2_el
+ement};
}

$ perl -e '
use strict;
...
> print $_ . "\t$hash1{$file2_element}\n" if exists $hash1{$file2_elem
+ent};
> } ' file1.txt file2.txt