while (<PASSWD>) {
            ($login, $passwd, $uid, $gid,
             $gcos, $home, $shell) = split(/:/);
        $USERS{$login} = $gcos;

    
    }  
    close (PASSWD);
    }   
        
         
        

    foreach $login (sort keys %USERS) {
        $gcos = $USERS{$login};
   
    @SKIP = ('adrian','adm','sys','alcatel');
    foreach $login ($SKIP) {
        next if $login eq $SKIP;
    }