for (1 .. $count + 1) {

##</code><code>##

for my $value (reverse 0 .. $count) {