perl -e 'print scalar( grep { $_ == 1 } (0,0,0) );' # nothing found 0