use strict;
my @list = qw(0 1 2 3 4 5);
foreach (@list){ #opens up the foreach block . . .
  {              #opens up a new block . . .
    next if $_ == 0; #breaks out of enclosing block
  }                  #meaning it breaks to here.
  print $_, " ";     #so '0' get's printed anyway
}                    #ends the foreach