DB<6> v 50
47:               print "Add a father: ";
48:               chomp (my $add_dad = ucfirst lc <STDIN>);
49:               $son_father{$name1} = {$add_dad};
50:               next;
51          }
52        }
53
54:       if ($choice eq 'd') {
55:         print "Enter a male name: ";
56:         chomp (my $name2 = ucfirst lc <STDIN>);