use Data::Dumper;
my $aref = ['x','y'];
my @a = ($aref, $aref);
print Dumper(\@a);
__END__
$VAR1 = [
          [
            'x',
            'y'
          ],
          $VAR1->[0]
        ];