open (USERS, ">", $users) or die "Cannot open $users: $!";
foreach (@nup){
    chomp;
    print "$genpass[0]\n";   
    s/xyz456/$genpass[0]/;   
    #print USERS;
    $a = shift(@genpass);
}