Help for this page

Select Code to Download

Select or download this

%friends= ("Bill" => "313-333-5555",
           "Bob" => "313-777-98755",
           "Joe" => "313-555-4435",
...
$name = <STDIN>;
chomp $name; # To remove trailing newline
print $friends{$name};