Or, avoiding full grep:

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

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

Though efficiency probably shouldn't enter the discussion here. Performing a key search on array, where you could have used a hash—bad decision. Another reason to dislike the smartmatch: it promotes bad design.