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