IMHO, your second example is great, but the condition seems like it could be more readable. Since you use grep, why not use it again, instead of map

grep { grep { $scalar == $_ } @{$_} } @array
[download]

Just MHO...

Update:And it's faster, 1000000 iterations has Grep+Grep at 11 Walclocks and Grep+Map at 16.

--
Casey