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