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


##</code><code>##

sub ChangeArray1 {
    my $i = 0;
LOOP: {
        $A[ $i ] = 1;
        redo LOOP if ++$i < @A;
        }
    }