$arrref   = $queryHandle->fetchall_arrayref();
$colnames = $queryHandle->{NAME};
print Dumper($colnames);
print Dumper($arrref);

print "A size:" . @colnames . "\n";
for ($i=0; $i < @colnames; $i++) {

	 print "A: " . $i . " : " . $colnames[$i] ."\n";
}

for ($i=0; $i<= @arrref; $i++) {
	  print "B size:" . @{$arrref->[$i]} . "\n";
    for ($j=0; $j< @{$arrref->[$i]}; $j++) {
        print "B: " . $i . " : " . $j . " : " . $arrref->[$i]->[$j] . "\n";
    }    
}


##</code><code>##

C:\temp>perl 1.pl
$VAR1 = [
          'MEASURE',
          'CNT'
        ];
$VAR1 = [
          [
            '# PLTADM Queries (ex batch) ',
            '0'
          ]
        ];
A size:0
B size:2
B: 0 : 0 : # PLTADM Queries (ex batch)
B: 0 : 1 : 0