$ 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