use strict; use warnings; foreach (my $i = 11; $i --> 0;) { print "$i "; } print "\n";