for my $i ( 10 .. 0 ) {
  # do something
}