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