Using the do/while repetition structure
$counter = 1; do { print "$counter "; } while ( ++$counter <= 10 ); print "\n";