my $count = 10;
my $foo=0;
while (1) {

	print $foo++,": $count\n";
	next if ($foo == 2);
	redo if ($foo == 5);

	$count--;

	last if ($count == 3);

	
	last unless
		($count> 0); # DO-WHILE-CONDITION
}