perl 传递数组作为参数

#perl
#\ ,取地址
sub array
{
     my ($arr1,$arr2) = @_ ;
     print "@$arr1 : @$arr2";
}

sub array_val
{
    my ($arr1,$val) = @_ ;
    print "@$arr1 : $val";
}

sub main
{
    my @array1 = qw/test test test/ ;
    my @array2 = qw/test1 test1 test1/ ;
    my $val = 0;
    &array(\@array1,\@array2);
    &array_val(\@array1, $val);
}

&main()