Use an embedded sub in situations like this. Will make it easier read your code and to build your local data structure.

sub Load {
    my $dir = shift;

    my %tree;

    find(sub {
        push @{$tree{ $File::Find::dir }}, $_;
    }, $dir);

    ...
}
[download]