c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @b = (1, 2, 3, 11, 12, 13);
 my @c = (4, 5, 6, 14, 15, 16);
 my @d = (7, 8, 9, 17, 18, 19);
 my @newb = grep { $_ > 10 } (@b && @c && @d);
 dd \@newb;
"
[17, 18, 19]