Select Code to Download

if ($padinstance =~/^\s*(\w+)\[\s*(\d+)\s*\:\s*(\d+)\s*\]\s*$/) {
         #Check and modify simultaneously
...
                             }
                          }

 $topxls_hash_ref->{$hier}->{$padinstance_new} =\%newhash;