while(<FILE1>){
   my $value = <FILE2>;
   warn "File lengths different!", last unless defined $value;
   $hash{$_} = $value;
}
print FILE3 join("\n", map({"$_ = $hash{$_}"} keys %hash));