$ perl -MList::Util=first -le'@_=(0)x100; first { ++$a; $_ == 0 } @_; print $a'
1