anyを使う List::MoreUtils - Provide the stuff missing in List::Util - metacpan.org サンプル use List::MoreUtils qw/any/; my @list_target = ('my', 'chuno', 'blog'); if (any {$_ eq 'chuno'} @list_target) { # 何らかの処理を書く }