Suchen in Verschachtelten Array, referenz zurück geben

[CPAN]

Ich hab mir das jetzt zwanzigmal durchgelesen und weiß immer noch nicht genau, was du bezwecken willst. Der Algorithmus ist dermaßen schwammig beschrieben, dass man nur rätseln kann. Insbesonders der Teil mit der Ersetzung durch $neu ist vollkommen undurchsichtig.

  
use autobox::Core;  
use Data::Leaf::Walker qw();  
  
my $walker = Data::Leaf::Walker->new(\@jobArray);  
while (my ($path, $value) = $walker->each) {  
    if ($value == $alt) {  
        $path->pop;  
        sprintf("$alt hat %d Nachbarn/Kinder.",  
            [$walker->fetch($path)->grep(sub {$_[0] != $alt})]->length)->say;  
    }  
}  

P.S.: Deine Datenstruktur ist dämlich. Hätte es nicht ein Hash sein können? Dann hätte ein Einzeiler mit dpath genügt.