Paul Makepeace wrote:
... is starting to frustrate me. It's the one feature I am finding I'm
really missing from That Other Language.

  if ($bar in @foo) {
    # ...
  }

Perhaps:

use List::Util qw( first );

if (first{ $_ eq $bar } @foo) {
  # ...
}

S.


Reply via email to