if($sub && $sub ne '') {
     print "$path ist ein Verzeichnis\n";
     print "(über)schreibe den key ".$super."\n";
     $subtree->{'items'}->{$super} = process_data($sub, $row_data, {'dir' => 1}); #original
     } else {
     print "$path ist eine Datei\n";
     $subtree->{'items'}->{$super} = {'file' => 1, 'data' => $row_data };
     }