use strict;
use warnings;

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

__END__

--PASS--STATUS

1

--PASS--STATUS

1

--PASS--STATUS

1

--FAIL--