一个声明的写法问题

一个声明的写法问题

一个声明的写法问题
请问下面代码有什么错误,为什么不能执行呢?

@myarray = (1, 2, 3, 4, 5);
&my_sub(*myarray);
sub my_sub {
my (*subarray) = @_;
}
这样传送的应该是符号表吧.
这样传送的应该是符号表吧!如果传递数组(\◎)or (◎),不知道对吗??
如果想用typeglob的话,这.
如果想用typeglob的话,这段代码给你参考下

@myarray = (1, 2, 3, 4, 5);
&my_sub(*myarray);
sub my_sub {
*subarray = $_[0];
$str = join "-", @subarray;
print $str;
}