Select Code to Download

  $hashREF->{$key0}->{$key1}->{$key2} = $hashVAL

my $list = [ "k0", "k1", "k2", ];
my ($h,$t);
...
}
$h = $val;