my $files = $des->all({file => 'dir'});

for my $file (keys %$files){
    say $file;
    for my $sub (@{$files->{$file}}){
        say "\t$sub";
    }
    print "\n";
}