As twerq said, you need to dereference your array. Here's an example showing you how you might access your data:
#! 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__
_______________
DamnDirtyApe
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
--Friedrich Nietzsche
|