This seems like a simple merge programming exercise, and I don't see anything that is Perl specific in the question.

Open both files for read
Open a third file as the output file - this will be the new version of file1
Within a loop
Read a record from File1
Read a record from File2
Construct a new record from these two values
Write out the new record to the output file
Close the files.