#!/usr/bin/perl
my $r;
for (my $i=0; $i<2; $i++) {
  my @a;
  $a[0]=1;
  $a[1]=2;
  if ($i==0) {
      $r=\@a;
  }
  else {
      $a[0]=3;
  }
}

print @{$r}[0];
