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