Sounds like you really want to merge two files..based on your copy text1 + text2 example

open(TEXT1,">>text1.txt") or die "$!";
open(TEXT2,"<text2.txt") or die "$!";

while(<TEXT2>)
{
   print TEXT1 $_;
}
close(TEXT2);
close(TEXT1);
[download]