my $loopVar = 10;
my @values = (0 .. 4);

for $loopVar (@values) {
    ++$loopVar;
}

print "$loopVar, @values";