Perlで特定のリストにあるアイテムが含まれているかを探す

grepを使う

sub search_item_in_list {
  my ($item, $ra_list) = @_;
  if (grep {$item eq $_} @{$ra_list}) {
    return 1;
  } else {
    return 0;
  }
}