for my $i (1) { print $i }

for ( my $i = 1; $i; $i--) { print $i }

for ( my $i = 1; $i; $i--) { my $i = $i; print $i }