Select Code to Download

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

sub create_hash_depth
{
...
    $href->{$a[0]} = 1;
  }
}