Nice one.. for completeness, here's a version that allows arbitrary tests:

sub grep2d (&;@) {
        my $test = shift;
        grep { grep $test->(), @$_ } @_
}

use Data::Dumper;
my @array = ( [ 1 .. 3], [ 4 .. 5 ], [ 3 .. 5 ] );
print Dumper grep2d { $_ == 3 } @array;
[download]

Note that this can likely be done more efficiently: the inner grep tests all elements, while we only care about whether or not one element matches. But unless the rows are very large, it probably doesn't matter.