print "Who's number are you looking for? : \n"; 
my $who = <STDIN>; 
chomp $who;
print "$who number is $numbers{$who}\n";