grep { grep { $scalar == $_ } @{$_} } @array