use strict;
use warnings;
use Data::Dumper;

my @t = (
	 [1,2,3],
	 0,
	 [4,5,6]
	);

my @k = grep { ref $_ eq "ARRAY" } @t;

print Dumper \@k;

##</code><code>##

531(255)[1603][/home/pignatelli/tmp]$ perl kkk.pl
$VAR1 = [
          [
            1,
            2,
            3
          ],
          [
            4,
            5,
            6
          ]
        ];