Select Code to Download

# Initialise an array so that $array[n] = n
my $n = 0;
foreach (@array) {$_ = $n++}

@array[0..100] = 0..100;

# or to mimic the behaviour of your code exactly
@array[0..$#array] = 0..$#array;