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