open (FD, '/etc/newPasswd') or die $!;
  foreach (@FINAL) { print FD $_; }
  close (FD);