perl 关于引用的一个例子

#!/bin/perl

my @a(1,2);

my @b(3,4);

refx(\@a,\@b);

sub refx{

for my $ref(@_)

{

for my $ele(@$ref)

{

print $ele;

}

}

}