Select Code to Download

open (USERS, ">", $users) or die "Cannot open $users: $!";
        foreach (@nup){
...
        $a = shift(@genpass);
}

open (USERS, ">", $users) or die "Cannot open $users: $!";
foreach (@nup){
...
    #print USERS;
    $a = shift(@genpass);
}