perl -e 'for (-5..-1) { print -$_,"\n" };'
5
4
3
2
1