#!/usr/bin/perl
use warnings;
use strict;

my %numbers=(
nameA => "1234567",
nameB => "2234567",
nameC => "3234567",
nameD => "4234567",
nameE => "5234567"
);

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

print "$who number is $numbers{$who}\n";

##</code><code>##

C:\BegPerl\chap3\Exercises>chap3_ex3.pl
Who's number are you looking for? :
"nameA"
Use of uninitialized value in concatenation (.) or string at
C:\BegPerl\chap3\Exercises\chap3_ex3.pl line 21,
<STDIN> li
ne 1.
nameA
number is