$ perl -E 'say grep $_ => (0,1,1,1); say scalar grep $_ => (0,1,1,1)'
111
3
$ perl -E 'say localtime; say scalar localtime'
51491621411701400
Sun May 21 16:49:51 2017