Perl 配列 参照渡しのサンプル

#!/usr/bin/perl

my @array = ();

sub1(\@array);
print @array;

sub sub1{
　my ($x) = @_;
　for ($i = 0; $i <= 10 ; $i++)
　{
　$x->[$i] = $i;
　}
}