Using reverse with and constant range
#!/usr/bin/perl -w use strict; print "Counting down (properly this time) : ", reverse(1 .. 6), "\n";