sub countrows {
# First parameter is a pointer/reference to the data
# Second parameter is an array of columns numbers
  my ($data,@f)= @_;
  my $count=0;
  foreach my $row (@$data) {
    my $success=1;
    foreach (@f) {
      if ($row->[$_] ne 'z') {
        $success=0;
        last;
      }
    }
    $count+= $success;
  }
  return $count;
}

my @data= ( ['z',4,'z',4,'z'],['z',4,'z',4,4],['z','z','z',4,'z'] );

print countrows(\@data,0,2),' ',countrows(\@data,1,3,2),' ',countrows(\@data,4),"\n";

# print 3 0 2