Select Code to Download

    
use strict;
use warnings;
...
sub change {
    eval '$h->{k1}{k2}{k3}=12';
}

Current directory is d:/tmp/pm/

...
    old value:    '666'
    new value:    ''
  DB<4>