Statement Perl

$counter = 1;
do 
{
   print "$counter ";
} while ( ++$counter <= 10 );
print "\n";