Using the do/until repetition structure
$counter = 10; do { print "$counter "; } until ( --$counter == 0 ); print "\n";