local @ARGV = ($file1, $file2, $file3, $file4);
my (@lines) = <>;
my (@data);
for my $line (@lines) {
  @data = split /\s+/, $line;
  ...
};