Separate names with a comma.
open F, '<', 'file1.txt' or die $!; open G, '>>', 'file2.txt' or die $!; print G $_ while <F>; close F; close G xDD