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

##</code><code>##

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