use Data::Dumper;
$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Indent = 0;
my $aref = ['x','y'];
my @a = ($aref, $aref);
print Dumper(\@a), "\n";
__END__
$VAR1 = [['x','y'],['x','y']];