use strict;
use warnings;

my %names = (larry => 'Larry', moe => 'Moe', curly => 'Curly');

print "What is your name?\n";
chomp(my $name = <STDIN>);

if (exists $names{lc $name}) {
    print "You\'re $names{lc $name}!\n"
}
else {
    $name = ucfirst $name;
    print "I don't know anyone by the name $name\n";
}