my($login,$gcos) = (split(':',$_))[0,4];

    if(exists $USERS{$login}) {
        push(@{$USERS{$login}},$strip);
    } else {
        $USERS{$login} = [$gcos,$strip];
    }

##</code><code>##

    push( @{  $USERS{$login}  }, $strip );

##</code><code>##

foreach my $login (sort keys %USERS) {
    print NEWFILE join(':', $login, @{$USERS{$login}}), "\n";
}