Select Code to Download

my %people = ( 7 => { name    => 'Bob Jones',
                      address => '555 Anywhere Street',
...

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

my %people = ( 7 => [ 'Bob Jones', '555 Anywhere Street', 'Allentown',
+ 'Pennsylvania' ],
               3 => [ 'Pete Hollister', '222 Northview Drive', 'Shoreh
+am', 'unknown' ]
...

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

my $phashref = { name => 1, address => 2, city => 3, state => 4 };
my %people = ( 7 =>[$phashref, 'Bob Jones', '555 Anywhere Street', 'Al
+lentown', 'Pennsylvania' ],
...
my $idnumber = 3;
print $people{ $idnumber }->{ name } . "\n";
print $people{ $idnumber }->[1];