#!/usr/bin/perl -w

use strict;

my %fets;
print "\n\n";

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

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