Select Code to Download

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

...
    } else {
        $USERS{$login} = [$gcos,$strip];
    }

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

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