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