Select Code to Download

    $tree[0] = $arr[0];
...
    my @copy = @$subNg;
    splice @{$tree}, $index + 1, 0, \@copy;