for (my $i = 0; $i < @array; $i++)    

##</code><code>##

$array[$i + 1]