my @tree_full_paths;

my @path;
for ( @tree )
{
    /^( *)(.+)/ or next;
    $#path = length $1;
    $path[-1] = $2;
    push @tree_full_paths, join '/', @path;
}
[download]

Now just compare the two lists using the usual methods discussed in the Perl FAQ.