#!/usr/bin/perl -w
use strict;

my @results_file=(1,1,1,0,1);

if (grep {/0/}@results_file ) #if (grep {$_ == 0}@results_file)
                              #numeric value
{
    print"\n--FAIL--";
}
else
{
     print "\n--PASS--STATUS\n";
     print "\n@results_file\n";
}