sub Load {
    my $dir = shift;

    my %tree;

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

    ...
}