do
{
	last;
} while (1);

##</code><code>##

do
{
	next if (not defined $_);
	print $_, "\n";
	next;
} for (1 .. 10);