sub ChangeArray1
{
  my $i = 0;
  LOOP:
    return if ($i >= @A);
    $A[$i++] = 1;      # Write to global array
  goto LOOP;
}