Select Code to Download

use strict;
use Data::Diver 'DiveVal';
...

DiveVal($root, qw/top 1 second key 3 three exists/) = 'no';
dd($root);

{
  top => [
...
           { second => { key => [0, 1, 2, { three => { exists => "no" 
+} }] } },
         ],
}