#! perl

use strict ;
use warnings ;
$|++ ;

my @AoAoH = (
              [ # Class 1
                {
                  'name'    => 'Bilbo Baggins',
                  'address' => 'The Shire',
                  'phone'   => '555-9898'
                },
                {
                  'name'    => 'Frodo Baggins',
                  'address' => 'The Shire',
                  'phone'   => '555-6767'
                }
              ],
              [ # Class 2
                {
                  'name'    => 'Gandalf',
                  'address' => 'Middle Earth',
                  'phone'   => '555-1313'
                },
                {
                  'name'    => 'Sauron',
                  'address' => 'Mordor',
                  'phone'   => '555-6666'
                }
              ],
              [ # Class 3
                {
                  'name'    => 'Peregrin Took',
                  'address' => 'The Shire',
                  'phone'   => '555-2424'
                },
                {
                  'name'    => 'Samwise Gamgee',
                  'address' => 'The Shire',
                  'phone'   => '555-2323'
                }
              ],
	    ) ;

print $AoAoH[0][0]{'name'}, "\n" ;

my $AoAoH_ref = \@AoAoH ;

print $AoAoH_ref->[1][1]{'name'}, "\n" ;

__END__