Select Code to Download

use vars qw($v);
...
        k2 => vh2k2,
      }
)

my $ofCurrentInterest = 'h1';

...
    $$key = $v->{ofCurrentInterst}->{$key}
}