perl 函数 值传递问题
sub load_array
{
#我该怎么使用这个数组
}

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]);

load_array(\@set);




[解决办法]
建议楼主还是找一本基础的书来看下,小骆驼书不错