use Test::More tests => 2;
my @not_ok = (1,1,1,0,1);
my @ok = (1,1,1,1,1,1);
ok( not (grep { $_ == 0 } @$_), 'No zeros' )
    for ( \@not_ok, \@ok );