Select Code to Download

use List::Util 'reduce';
use Carp 'carp';

...
    my $leaf = reduce { $a->{$b}{'tree'} ||= {} } $root, @{$keys}[ 0 .
+. $#$keys - 1 ];
    $leaf->{$keys->[-1]}{'value'} = $value;
}