foreach $key (keys %UIDS) {
  if ($key eq $name) {
    $uid=$UIDS{$key};
     $line=join ':',$name,$passwd,$uid,$gid,$gcos,$dir,$shell;
    print TMP $line;
  }
  else {
     $line=join ':',$name,$passwd,$uid,$gid,$gcos,$dir,$shell;
    print TMP $line;
  }
}