$  perl -E 'my $count = 5; say $count while decr($count); sub decr {--$_[0];}'
4
3
2
1