Select Code to Download

use strict;
use warnings;
...
   print FILE3 join('|',$_,$file1{$_},$file2{$_}),'|',"\n";
}
close FILE3;

my %file1;
while (<FILE1>) {
...
  my ($key, $val) = split '\|', $_, 2;
  $file1{$key} = $val;
}