C:\ce3\bin>perl -w
my @list = qw(0 1 2 3 4 5);
foreach (@list){
  next if $_ == 0;
  print $_, " ";
}
^Z
1 2 3 4 5

##</code><code>##

C:\ce3\bin>perl -w
use strict;
my @list = qw(0 1 2 3 4 5);
foreach (@list){
  { 
    next if $_ == 0;
  }
  print $_, " ";
}
^Z
0 1 2 3 4 5

##</code><code>##

C:\ce3\bin>perl -w
my @list = qw(0 1 2 3 4 5);
foreach (@list){
  {
    next if $_ == 0;
    print $_, " ";
  }
}
^Z
1 2 3 4 5