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

if (@results_file =~ m/0/)
               {
              print"\n--FAIL--";
               }
               else
              {
               print "\n--PASS--STATUS\n";
               print "\n@results_file\n";
}