sub process
{
        
    my $name = $_[0];#erwartete variable
        
    if($wortliste{$name}==1)
    {
        return '';
    }
    
    
    foreach my $temp (split ',', $connected{$name}) # alle mit $name verbundenen ausdrücke
    {
         $wortliste{$name}=1;
         if($wortliste{$temp}==1)
         {
         next;
         }
         
         push (our @results,"\t".$temp);
         process($temp);   
    }
    return our $results;