for my $i (1..10) {
  THIS_LOOP: for my $j (1..10) {
    for my $k (1..10) {
      last THIS_LOOP if $k > $i;
      last if $k > $j;
      print "$i.$j.$k\n";
    }
  }
}

...........................
    my $server = IO::Socket::INET->new(
               
     LocalPort => 2005,
               
     type => SOCK_STREAM,
               
     Reuse => 1,
               
     Listen => 10
               
     ) or die "Server läuft nicht: $@\n";
my $select = IO::Select->new($server);
while(my @readable = $select->can_read) 
    {
    
        last if (SERVICE_STOP_PENDING == DoEvents());
    foreach my $socket (@readable) 
        {
        if($socket == $server) 
            {
            my $client = $socket->accept;
..............................

my $rc = DoEvents();
if (SERVICE_STOP_PENDING == $rc) {
  print "jezz gibbs last\n";
  last;
}
else {
  printf "Status: '%s' => '%s'\n", SERVICE_STOP_PENDING, $rc;
}

open (STDOUT, ">", $logfile) or die $!;
print "blarhabarber\n";

while(my @readable = $select->can_read) 
            {
            foreach my $socket (@readable) 
               
 {
               
 if($socket == $server) 
               
     {
               
     my $client = $socket->accept;
               
     print "New client connects\n";
                    $select->add($client);
               
     $client->print("Welcome\n");
               
     }