Help for this page

Select Code to Download

Select or download this

use Data::Diver qw( DiveVal );

...
   my @keys = split(/\./, $key);
   DiveVal(\%hash, map \$_, @keys) = $val;
}