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