knoppix@Microknoppix:~$ perl -MList::Util=first -E '
> @array = (
>    [ qw{ 1 1 1 1 1 } ],
>    [ qw{ 1 0 0 -1 0 } ],
>    [ qw{ 0 1 1 0 0 } ],
>    [ qw{ 0 0 0 0 1 } ],
>    [ qw{ 0 0 0 0 0 } ],
>    [ qw{ 0 1 0 1 0 } ],
>    [ qw{ 0 0 0 0 0 } ],
>    );
> 
> $found = first {
>    $i = $_;
>    $res = first {
>       $array[ $i ]->[ $_ ] != 0
>       } 0 .. $#{ $array[ $i ] };
>    ! defined $res;
>    } 0 .. $#array;
> say
>    q{First all-zero row is -> },
>    defined $found
>    ? $found
>    : q{none found};
> '
First all-zero row is -> 4
knoppix@Microknoppix:~$