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


##</code><code>##

$  perl -E 'my $count = 5; say $count while $count = decr($count); sub decr {return -1 + shift;}'
4
3
2
1