my %family_name = (
   "Alis" => "Williams",
   "Sara" => "McAwesome",
   "Serena" => "Anderson",
   );
my $key = keys %family_name;
my $value = values %family_name;

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

foreach my $key1 (sort keys %family_name)
{
 if ($name eq $key1)
 {
  print "$key1 is already there, and its family name is $family_name{$key1} ";
  }
 }