use strict;
use warnings;

my @results_file = (1,1,1,0,1);
my $pass = 1;
for (@results_file) {
    if (/0/) {
        print "\n--FAIL--\n";
        $pass = 0;
        last;
    }
}
if ($pass) {
    print "\n--PASS--STATUS\n";
    print "\n@results_file\n";
}

__END__

--FAIL--