Select Code to Download

my $count_foo = scalar @fool;

my $count_foo = grep (/foo/, @array);

my @array = qw(foo bar food foofighters kung-foo);

my $count_foo = grep { $_ eq 'foo' } @array;