Select Code to Download

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