my $contains = sub { $_ eq $_[1] && return 1 for @{$_[0]}; 0 };

  for (qw( Lisa Bart Fred LanX )) {
    [qw( Fred Wilma Barney Betty )]->$contains($_) and print;
  }