grep { substr($_, 1, 1) = "foo" } qw(bar baz);