my %people = ( 7 => { name    => 'Bob Jones',
                      address => '555 Anywhere Street',
                      city    => 'Allentown',
                      state   => 'Pennsylvania' },
               3 => { name    => 'Pete Hollister',
                      address => '222 Northview Drive',
                      city    => 'Shoreham',
                      state   => 'unknown' }
              );

my $idnumber = 3;
print $people{ $idnumber }{ name };

##</code><code>##

my %people = ( 7 => [ 'Bob Jones', '555 Anywhere Street', 'Allentown', 'Pennsylvania' ],
               3 => [ 'Pete Hollister', '222 Northview Drive', 'Shoreham', 'unknown' ]
              );

my $idnumber = 3;
print $people{ $idnumber }[0];

##</code><code>##

my $phashref = { name => 1, address => 2, city => 3, state => 4 };
my %people = ( 7 =>[$phashref, 'Bob Jones', '555 Anywhere Street', 'Allentown', 'Pennsylvania' ],
               3 =>[$phashref, 'Pete Hollister', '222 Northview Drive', 'Shoreham', 'unknown' ] );

my $idnumber = 3;
print $people{ $idnumber }->{ name } . "\n";
print $people{ $idnumber }->[1];