#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my %data = ( A => { one => 1,
                    two => 2,
                    three => 3 },
             B => { four => 4,
                    five => 5,
                    six => 6 },
             C => { seven => 7,
                    eight => 8,
                    nine => 9 } );

print Dumper(\%data);