for (my $i = 0; $i < @$ref - 1; $i++) {

##</code><code>##

for my $i (0..$#$ref) {