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.