open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_file: $!\n";

my @subfolders;
my %parents_of;
my $parentid;

while ( my $line = <FFINFO> ) {
    push @subfolders, $line;