my @two_d = (
        [qw( foo bar baz)],
        [qw( bar baz quux)],
        [qw( baz quux foo)]
        );
my @rows = grep { grep {/foo/} @$_ } @two_d;