#
# while loop
#

$i = 0;
while ($i < 3) {
	print "Inside while loop!\n";
	$i++;
}

#
# until loop
#

$i = 0;
until ($i > 3) {
	print "Inside until loop!\n";
	$i++;
}

#
# do while loop
#

$i = 0;
do {
    print "Inside do while!\n";
	$i++;
} while ($i < 3);

#
# do until loop
#

$i = 0;
do {
    print "Inside do until!\n";
	$i++;
} until ($i > 3);

#
# for loop
#

for($i = 0;$i < 3;$i++) {
	print "Inside for loop!\n";
}

#
# foreach loop
#

foreach (1..3) {
	print "Inside foreach!\n";
}

#
# naked block
# 

{
	$i = 0;
	print "Inside naked block\n";
	$i++;
}