use strict;
use warnings;

TOP:
for (my $i = 1; $i < 10; $i++) {
	if (5 == $i) {
		next TOP;
	}
	print "Iteration $i\n";
}