#!/usr/bin/perl
 
 use strict;
 use warnings;

 for(0..9) { #Schleifenanfang
     eval{ #eval Funktion
        die 7 if $_ == 7; # ???
        print $_,"\n"; # Ausgabe der std. Variable $_
     } or do{  next; }; # ok redo,last,next kenn ich ja seit gestern :)
 }