sub enter_father {
  $student = $name_ent -> get;
  open studentfile, ">>", $student;
  $file_array[6] = $father_ent;
  print studentfile ($file_array[6]);
  close studentfile;
}

##</code><code>##

SampleNameTk::Entry=HASH(0x84a8644)Tk::Entry=HASH(0x84a8a4c)Tk::En
try=HASH(0x84a8bcc)Tk::Entry=HASH(0x84a8dc4)Tk::Entry=HASH(0x84a
8fbc)Tk::Entry=HASH(0x84a91b4)Tk::Entry=HASH(0x84a93ac)Tk::Entry
=HASH(0x8499b58)Tk::Entry=HASH(0x8499d50)Tk::Entry=HASH(0x8499f4
8)Tk::Entry=HASH(0x849a140)Tk::Entry=HASH(0x849a338)Tk::Entry=HA
SH(0x849a530)Tk::Entry=HASH(0x849a728)Tk::Entry=HASH