##
16:05 >perl -wE "my $c = 0; for (my $n = 3; $n >= 0; $n--) { ++$c; } say $c;"
4
16:05 >perl -wE "my $c = 0; my $n = 3; while ($n--) { ++$c; } say $c;"
3
16:05 >perl -wE "my $c = 0; my $n = 3; for (1 .. $n) { ++$c; } say $c;"
3
16:05 >
####
while ($count-- >= 0) {