%friends= ("Bill" => "313-333-5555",
"Bob" => "313-777-98755",
"Joe" => "313-555-4435",
);
print "Which phone number do you want?\n";
$friends= <STDIN>;
print %friends;