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