my $chr = $_;
grep { $chr eq $_ } qw( a b c );