perl 数组,该如何解决

perl 数组my @set (#input, #output[ 2,2,3,4,1 ], [ 1,1,1,1,1 ],[ 1,1,1,1,1 ], [ 0,0,0,0,0 ],[ 1,1,

perl 数组
my @set = (
  #input , #output
  [ 2,2,3,4,1 ], [ 1,1,1,1,1 ],
  [ 1,1,1,1,1 ], [ 0,0,0,0,0 ],
  [ 1,1,1,0,0 ], [ 0,0,0,1,1 ]  
  );


perl 数组,如果我要动态加的话我可以这样吗

my @set;
push(@set,[ 2,2,3,4,1 ]);
push(@set,[ 1,1,1,1,1 ]);
push(@set,[ 1,1,1,1,1 ]);
push(@set,[ 0,0,0,0,0 ]);
push(@set,[1,1,1,0,0]);
push(@set,[0,0,0,1,1]);
或者可以这样吗




[解决办法]
可以,没有问题
祝新年快乐