sub canonize_file_name {
   ???
}

my $id = canonize_file_name($file_name);
if (not exists $forest{$id}) {
   $forest{$id} = Tree->new($file_name);
}
return $forest{$id};