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