Select Code to Download

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