Help for this page

Select Code to Download

Select or download this

sub getPeople {
     my $file = 'list.txt';
...
     print "The person with ID 3 is $people{3}{first} $people{3}{last}
+\n";
     close LIST;
}