for ( my $i = 10; $i--; ) {
  # do something
}