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

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

print "at least one zero" if (grep{/0/}@results_file);
__END__
prints:
at least one zero

##</code><code>##

print "at least one zero" if (grep {$_ == 0}@results_file);

##</code><code>##

#!/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";
}