} if ($choice eq 'r'){
     print "Enter a male name: ";
      chomp (my $name3 = lc <STDIN>);
      if (exists $son_father{$name3}) {
        print "Enter a new father name: ";
        chomp ($newname = <STDIN>);
        $son_father{$name3} = {$newname};
          } else {
          print "Sorry, couldn't find you -- try again later!";
          next;
          }  
  } if ($choice ne 'a', 'r', 'o', 'd', 'e') {
     print "Invalid choice, TRY AGAIN!\n";
  }
}