Select Code to Download

use 5.016;
use Data::Walk;
...
@path = (); 
walk $walker, \%h3;
print Dumper \%paths;

my %paths = (
    'a.0.b.c.0' => d,
    'a.0.b.c.1' => e,
    'a.1.f.g' => h,
);