#! /usr/bin/perl
        @files=('passwd.server1','passwd.server2','passwd.server3','passwd.server4',
    'passwd.server5','passwd.server6','passwd.server7','passwd.server8','passwd.server9');
foreach $file (@files){
open (PASSWD,"$file");
$nf="endo";
open (NEWFILE, ">$nf");
while (<PASSWD>) {
        ($login, $passwd, $uid, $gid,
         $gcos, $home, $shell) = split(/:/);
        $USERS{$login} = $gcos;
}
close (PASSWD);
}
                                                                                
foreach $login (sort keys %USERS) {
        $gcos = $USERS{$login};
        print NEWFILE "$login, $gcos\n";
    }