perl子函数参数引用传递例子

#!/usr/bin/perl
use strict;
use warnings;
my @array=('aa','bb','cc','dd');
my %hash=(
                a=>"1",
                b=>"2",
                c=>"3",
                d=>"4"
        );
sub a 
{
        my ($array_ref,$hash_ref)=@_;
        print "$array_ref->[1]\n";
        print "$hash_ref->{a}\n";
}
&a(\@array,\%hash);