for my $i (1 .. 10)
{
   print "$i\n";
   next;
   print "ich werde nicht geprinted\n";
}