Select Code to Download

my %dirhash;
for my $file ( @filelist ) {
...
for my $dir ( sort keys %dirhash ) {
    print "$dir\t", join( "\n\t", @{$dirhash{$dir}} ), "\n";
}

my $lastdir = '';
for my $file ( @filelist ) {
...
    }
    print "\t$name\n";
}