Select Code to Download

use strict;
use warnings;
...
my @k = grep { ref $_ eq "ARRAY" } @t;

print Dumper \@k;

531(255)[1603][/home/pignatelli/tmp]$ perl kkk.pl
$VAR1 = [
...
            6
          ]
        ];