foreach my $file (@files) { print "FAILED FILE - $file\n"; }