print "$s_i";  
for (my $r_i = $s_i; $r_i > 0; $r_i--) {  # für diesen satz und alle davor tue                                while (@{$referentenliste{$r_i}}) {       # solange es referenten im aktuellen satz gibt
      my $kandidat = shift (@{$referentenliste{$r_i}});  # shifte einen referenten
      print "kandidat: $kandidat";
      if ($kandidat =~ /$muster/) {       # wenn $muster teil des aktuellen referenten ist
         push (@kandidatenliste, $kandidat); # pushe den aktuellen referenten auf's Array            
        }
    }
}