lhp@nereida:~/Lperl/src/cookbook/ch16$ perl -wde 0
main::(-e:1):   0
  DB<1> use List::Util qw(first)
  DB<2> $var = 'd'
  DB<3> print "Found $var\n" if (first { $_ eq $var } qw{a e g h d r})
Found d
  DB<4> $var = 'x'
  DB<5> print "Found $var\n" if (first { $_ eq $var } qw{a e g h d r})
  DB<6>