#!/usr/bin/perl -w
use strict;

my %family_name = (
   "Alis" => "Williams",
   "Sara" => "McAwesome",
   "Serena" => "Anderson",
   );

print "Enter a name to print it's family name : \n";
chomp(my $name= <STDIN>);

if (exists $family_name{$name}) {
    print "$name is already there, and its family name is $family_name{$name} ";
} else {
    print "I don't know anyone by the name $name\n";
}