Perl 多维数组取值和赋值

my @array;

my %hash;

my $i = 0;

@array = (0,0,0);

$hash{$i} = [@array];

$hash{1} = (1,1,1);

@array = @{$hash{1}};