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];