$ perl -MData::Dump -e "%f = qw/ A A B B C C/; dd( grep { lc $_ eq q/c/ } keys %f ); dd(\%f)"
"C"
{ A => "A", B => "B", C => "C" }


##</code><code>##

$ perl -E"say grep { lc $_ eq q/c/ } qw/ A B C/"
C

$ perl -MList::Util=first -E"say first { lc $_ eq q/c/ } qw/ A B C/"
C