$count = grep { BLOCK } LIST;
@result = grep { BLOCK } LIST;
@result = map { BLOCK } LIST;
map { BLOCK } LIST; # invalidates your warranty