use strict; use warnings; my @listFiles = ("thisfile", "thatfile", "thisotherfile"); foreach my $i (@listFiles) { print "file passed: $i\n"; system ("perl.exe", "full_path_to_heavylifter.pl", $i) ; }