open FH, '<file1.txt';
@data = <FH>;

open FH1, '<file2.txt';
@data1=<FH1>;

my $text1 = <<END_TEXT;
@data
END_TEXT

my $text2 = <<END_TEXT1;
@data1;
END_TEXT1