open IHF, "<", "File1" or die "Could not open File1: $!";
while( <IHF> ) {
   chomp;
   my ($k, $v) = split;
   $fets{$k} = $v if defined ($k) and defined ($v);
}
close IHF;

open JHF, "<", "File2" or die "Could not open File2: $!";
while(<JHF>) {
   chomp;
   my ($key, $val) = split;
   print "$key $fets{$key} $val\n" if exists $fets{$key};
}
close JHF;