for (1,2,3,4,5) {
   next if $_==1 .. $_==1;
   print "$_\n";
}