broquaint and erikharrison both mentioned labels, but neither provided an example. here's one:

my @list = qw(0 1 2 3 4 5);
LOOP: foreach (@list){
  {
    next LOOP if $_ == 0;
    print $_, " ";
  }
}
[download]

this should behave as expected.

~Particle ;Þ