You need to chomp your input to get rid of the newline:

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

Code look much better if you wrap it in <code> ... </code> tags :-)