my $gs = '';
FOR_INIT:
	my $g = 0;
	goto FOR_TEST;
FOR_NEXT:
	$g++;
FOR_TEST:
	goto FOR_LAST unless $g < 10;
FOR_REDO:
	#goto FOR_LAST if $g == 7;
	goto FOR_NEXT if $g == 5;
	print "g: $g\n";
	$gs .= "$g ";
	goto FOR_REDO if length($gs) == 6;
	goto FOR_NEXT;
FOR_LAST:
print "gs: $gs\n";