my %dirhash;
for my $file ( @filelist ) {
    my ( $dir, name ) = split '/', $file;
    pushd @{$dirhash{$dir}}, $name;
}
for my $dir ( sort keys %dirhash ) {
    print "$dir\t", join( "\n\t", @{$dirhash{$dir}} ), "\n";
}