open(file, '<', "test.txt");
while (my $a = <file>) {
print "text \n";
push(@print,$a);
}
close(file);