foreach my $file (<passwd.*>){
    open (PASSWD,"$file");

##</code><code>##

    $nf="file1";
    open (NEWFILE, ">$nf");

##</code><code>##

    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;
    }

##</code><code>##

    @SKIP = ('adrian','adm','sys','alcatel');
    delete @USERS {@SKIP};
    foreach $login (sort keys %USERS) {
        ...
    }

##</code><code>##

    #next if ($login =~ /adrian|adm|sys|alcatel/);

##</code><code>##

  
        print NEWFILE "$login\n";
        }
        close (NEWFILE);