...
  while (@{$anaphernliste{$index}}) 
   {
    my $aktuelles_pronomen = shift (@{$anaphernliste{$index}});  
...
     }
    $index++;
...