> This doesn't work:
> 
> 
>         $label = 'A';
>         A: for my $a (1..3) {
>           print $a;
>           next $label;
>           print "x";
>         }
> 

Odd that it doesnt work for next as it does work for goto. 

$label = time % 2 ? 'A' : 'B';
goto $label;
print "This shouldn't happen BTW\n";
A:{
	die "In A";
}
B:{
	die "in B";
}

Yves