@a = (1 .. 10);

func(\@a);


sub func{
   @b = @{ shift() };
   for(@b){
       print $_, $/;
   }
}
[download]