knoppix@Microknoppix:~$ perl -MList::Util=sum -E '
> @array = (
>    [ qw{ 1 1 1 1 1 } ],
>    [ 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 } ],
>    );
> say qq{First all-zero row is @{ [
>    ( grep { ! sum @{ $array[ $_ ] } } 0 .. $#array )[ 0 ] ] }};'
First all-zero row is 3
knoppix@Microknoppix:~$