#!/usr/bin/perl

%hoh = ( sectionA => { 1 => K1A,
                                     2 => K2A },
                                  { K1A => 'v1A',
                                     K2A => 'v2A' }
               );

print "1  : $hoh{sectionA}{1}\n";
print "K1A: $hoh{sectionA}{K1A}\n";

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hoh = ( sectionA => { 1 => 'K1A', 2 => 'K2A' },
            sectionB => { K1A => 'v1A', K2A => 'v2A' } );

print $hoh{sectionA}->{1}, "\t", $hoh{sectionB}->{K1A}, "\n";
              
die Dumper \%hoh;