$ 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>