@daten(1..5);

if (1 eq 2)
{
   for(@daten)
   {
      print $_;
      print "\n";

      while(1)
      {
         $x++;
         print "blabla\n";

         if ($x eq 2) 
         {
            print 'Wert vor Abbruch:'.$x;
            last;
         }
      }  #while
   }   #for         "Code-Erweiterung" in diesem Block
}  #if