sub get_elements {
   my ($tree,@folder_names) = @_;
   return $tree unless @folder_names;
   my $subtree  = $tree->{shift(@folder_names)};
   return get_elements($subtree,@folder_names);
}