use strict;
for my $testcase ([1,1,1,0,1],[1,1,1,1,1],[1,10,101]) {
    my @results_file = @$testcase;
    if (@results_file ~~ m/0/)
               {
              print"\n--FAIL-- @results_file";
               }
               else
              {
               print "\n--PASS--STATUS\n";
               print "\n@results_file\n";
    }
}