#!/usr/local/bin/perl

use strict;
use warnings;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

my %hash = (
  'summary' => {
    'allotments' => 679
  },
  'prefix' => {
    '32 ' => 425,
    '45 ' => 5,
    '41 ' => 2,
    '46 ' => 5,
    '44 ' => 1,
    '47 ' => 9,
    '43 ' => 1,
    '27 ' => 1,
    '48 ' => 212,
    '22 ' => 14,
    '29 ' => 2,
    '40 ' => 2
  },
);

for my $key (keys %hash){
  print qq{key: $key\n};
  for my $subkey (keys %{$hash{$key}}){
    print qq{\tsubkey: $subkey\n};
  }
}