02 perl配列に存在確認

my @list = ('A', 'B', 'C');

if (grep {$_ eq 'C'} @list) {
    print "yes\n";
} else {
    print "no\n";
}