[oracle@jhoa 7]$ cat 7.pl 
for ($i = 1;$i <= 10;$i++){ #从1数到10
next if ($i == 5);
  print "I can count to $i!\n";
}
[oracle@jhoa 7]$ perl 7.pl 
I can count to 1!
I can count to 2!
I can count to 3!
I can count to 4!
I can count to 6!
I can count to 7!
I can count to 8!
I can count to 9!
I can count to 10!