while(<PWD>)
{
    my($name,$passwd,$uid,$gid,$gcos,$dir,$shell)=split /:/;

    $uid=$UIDS{$name} if (defined $UIDS{$name});

    $line=join ':',$name,$passwd,$uid,$gid,$gcos,$dir,$shell;
    print TMP $line;
}