Karls-Mac-mini:~ karl $ perl -e 'print 2*60*60;'
7200

##</code><code>##

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


##</code><code>##

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