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