perl 函数 值传递有关问题

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




------解决方案--------------------
建议楼主还是找一本基础的书来看下,小骆驼书不错