for(my $i=10;$i<=0;$i++) {
  # do something
}