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