Perl call by reference array subroutines

#!/usr/bin/perl
my @array = ();

sub1(\@array);
print @array;

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