use strict;
use warnings;

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 ($family_name{$name}) {
	print "$name is already there, and its family name is $family_name{$name} ";
}