# part1.pl
use strict;
my ($file, $string);
my @files = (“test1.txt”,”test2.txt”,”test3.txt”);
for $file (@files){
	$string = "open (A$file, \"perl part2.pl $file|\")";
	eval $string; # Error checking omitted for simplicity
}