$value=15;
do{
  print "$value\n";
  $value=$value-1;
} while($value>10);