#!/usr/bin/perl -w
use strict;
my %USERS;
foreach my $file (<passwd.server*>) {
    open(PASSWD,$file);
    while(<PASSWD>) {
        my($login,$gcos) = (split(':',$_))[0,4];
        if(exists $USERS{$login}) {
            push(@{$USERS{$login}},$file);
        } else {
            $USERS{$login} = [$gcos,$file];
        }
    }
    close(PASSWD);
}

open(NEWFILE,">endo");
foreach my $login (sort keys %USERS) {
    print NEWFILE "$login:".shift(@{$USERS{$login}}).":";
    print NEWFILE join(',',@{$USERS{$login}})."\n";
}
close(NEWFILE);