#!/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";