#while loop

$counter = 0;

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

#for loop
for ($a=0; $a<10; $a=$a+2) {
	print '$a ',"is $a\n";
}

for ($a=1; $a<5; $a=$a+1) {
	for ($b=10; $b<50; $b=$b+10) {
		print '$a ',"is $a; ", '$b ',"is $b\n";
	}
}

#Perl supports Labels, not a good idea
#exit statement can leave perl, used for user interaction