RosettaCodeData/Task/Loops-Downward-for/Perl/loops-downward-for.pl

foreach (reverse 0..10) {
  print "$_\n";
}