main::(perldb_demo.pl:4): my @a = (1..10); DB<1> n main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:6): if (0 < scalar grep { $_ == 9 } @a) { DB<1> main::(perldb_demo.pl:7): print "found\n";