$ perl -d pm_1202351.pl

Loading DB routines from perl5db.pl version 1.49_001
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(pm_1202351.pl:4):        my %son_father;
  DB<1>

##</code><code>##

  DB<1> c 41

         SON_FATHER Hash Operations

a- Add a son-father pair
d- Delete a son-father pair
e- exit the program
g- Get a father
o- Output the hash neatly
r- Replace a father
x- get a grand father


Make your choice: g
main::(pm_1202351.pl:41):         if ($choice eq 'a'){
  DB<2> p $choice
g

##</code><code>##

  DB<3> n
main::(pm_1202351.pl:44):             } if (exists $son_father{$name1}) {
  DB<3>

##</code><code>##

  if ($choice eq 'a'){
    print "Enter a male name: ";
    chomp (my $name1 = ucfirst lc <STDIN>);
      } if (exists $son_father{$name1}) {
          print "Duplicate name -- try again!\n";
          } else {
              print "Add a father: ";
              chomp (my $add_dad = ucfirst lc <STDIN>);
              $son_father{$name1} = {$add_dad};
              next;
  }


##</code><code>##

  if ($choice eq 'a'){
    print "Enter a male name: ";
    chomp (my $name1 = ucfirst lc <STDIN>);
    if (exists $son_father{$name1}) {
          print "Duplicate name -- try again!\n";
    } else {
          print "Add a father: ";
          chomp (my $add_dad = ucfirst lc <STDIN>);
          $son_father{$name1} = {$add_dad};
          next;
    }
  }

##</code><code>##

$ perl -d pm_1202351.pl

Loading DB routines from perl5db.pl version 1.49_001
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(pm_1202351.pl:4):        my %son_father;
  DB<1> c 41

         SON_FATHER Hash Operations

a- Add a son-father pair
d- Delete a son-father pair
e- exit the program
g- Get a father
o- Output the hash neatly
r- Replace a father
x- get a grand father


Make your choice: g
main::(pm_1202351.pl:41):         if ($choice eq 'a'){
  DB<2> p $choice
g
  DB<3> n
main::(pm_1202351.pl:54):         if ($choice eq 'd') {

##</code><code>##

  DB<3> n
main::(pm_1202351.pl:57):             } if (exists $son_father{$name2}) {

##</code><code>##

  DB<1> h
List/search source lines:               Control script execution:
  l [ln|sub]  List source code            T           Stack trace
  - or .      List previous/current line  s [expr]    Single step [in expr]
  v [line]    View around line            n [expr]    Next, steps over subs
  f filename  View source in file         <CR/Enter>  Repeat last n or s
  /pattern/ ?patt?   Search forw/backw    r           Return from subroutine
  M           Show module versions        c [ln|sub]  Continue until position
Debugger controls:                        L           List break/watch/actions
  o [...]     Set debugger options        t [n] [expr] Toggle trace [max depth] ][trace expr]
  <[<]|{[{]|>[>] [cmd] Do pre/post-prompt b [ln|event|sub] [cnd] Set breakpoint
  ! [N|pat]   Redo a previous command     B ln|*      Delete a/all breakpoints
  H [-num]    Display last num commands   a [ln] cmd  Do cmd before line
  = [a val]   Define/list an alias        A ln|*      Delete a/all actions
  h [db_cmd]  Get help on command         w expr      Add a watch expression
  h h         Complete help page          W expr|*    Delete a/all watch exprs
  |[|]db_cmd  Send output to pager        ![!] syscmd Run cmd in a subprocess
  q or ^D     Quit                        R           Attempt a restart
Data Examination:     expr     Execute perl code, also see: s,n,t expr
  x|m expr       Evals expr in list context, dumps the result or lists methods.
  p expr         Print expression (uses script's current package).
  S [[!]pat]     List subroutine names [not] matching pattern
  V [Pk [Vars]]  List Variables in Package.  Vars can be ~pattern or !pattern.
  X [Vars]       Same as "V current_package [Vars]".  i class inheritance tree.
  y [n [Vars]]   List lexicals in higher scope <n>.  Vars same as V.
  e     Display thread id     E Display all thread ids.
For more help, type h cmd_letter, or run man perldebug for all docs.

##</code><code>##

  DB<3> p "FOO! <$choice>\n"
FOO! <g>

  DB<4>

##</code><code>##

  DB<4> x %son_father
0  'Bruce'
1  'Richard'
2  'Robert'
3  'Jason'
4  'Clark'
5  'Jon'
6  'Jeff'
7  'Doug'
8  'Thomas'
9  'Evan'

##</code><code>##

  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>);