eval '$Hash' . map { qq({'$_'}) } @a . ' = 1';

##</code><code>##

sub create_hash_depth
{
  my $href = shift;
  my @a = @_;
  if (scalar @a > 1) {
    $href->{$a[0]} = {};
    create_hash_depth($href->{$a[0]}, @a[1..$#a]);
  } else {
    $href->{$a[0]} = 1;
  }
}