====== 02 perl配列に存在確認 ======

<code perl>
my @list = ('A', 'B', 'C');

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