DB<107> @a=(a..f)x10

  DB<108> use List::MoreUtils qw/any/

  DB<109> grep { "a" eq $_ } @a
 => ("a", "a", "a", "a", "a", "a", "a", "a", "a", "a")

  DB<110> 0+ grep { "a" eq $_ } @a
 => 10

  DB<111> 0+ any { "a" eq $_ } @a
 => 1