Select Code to Download

100 => 100
101 => 101
...
1397 => 1397
1398 => 1398
...

return @parents ? [ map {
                         map { "$_/$folderid" } @{ build_path( $_ ) }
                        } @parents ]
                : [ $folderid ];

#!/usr/bin/perl -w
use strict;
...
    $folderpaths{$k} = build_path($k);
    print "$k => $_\n" for @{ $folderpaths{$k} };
}