my $ofCurrentInterest = 'h1';

foreach $key (keys $v->{$ofCurrentInterest})
{
    $$key = $v->{ofCurrentInterst}->{$key}
}