#!/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