#!/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";