#!/usr/bin/perl

for (my $i=1; $i<10; $i++) {
  if($i == 4) {next;}
  print "$i \n";
  if($i == 8) {last;}
}



----------------
kondo@kondo-PC ~/Perl
$ perl for.pl
1
2
3
5
6
7
8