my $lastdir = '';
for my $file ( @filelist ) {
    my ( $dir, $name ) = split '/', $file;
    if ( $dir ne $lastdir ) {
        print "$dir";
        $lastdir = $dir;
    }
    print "\t$name\n";
}