$i=5;
print( do{--$i;} ) while $i;