#!/usr/bin/perl -w
use strict;

my $p = 1;
my @genpass;
my $genpass;
my $pass = "/home/v0x9849/scripts/new.pass";
open (PASS, ">", $pass) or die "Cannot open $pass: $!";
while ( $p < 53 ){
        @genpass = generatePassword(10);
        print PASS "@genpass \n";
        $p++;
}
close PASS;

open (PASS, $pass) or die "Cannot open $pass: $!";
@genpass = (<PASS>);

my $a;
my $users = "/home/v0x9849/scripts/new.users";
open (USERS, $users) or die "Cannot open $users: $!";
my @nup = (<USERS>);
close USERS;
open (USERS, ">", $users) or die "Cannot open $users: $!";
        foreach (@nup){
#       print "$genpass[0]\n";  <==this works
        s/xyz456/$genpass[0]/;  <==this gets uninitialized
        #print USERS;
        $a = shift(@genpass);
}
 
close USERS;

#print generatePassword(10) . "\n";
#exit;
sub generatePassword {
my $length = shift;
my $password = "";
my $possible = 'abcdefghijkmnpqrstuvwxyz23456789ABCDEFGHJKLMNPQRSTUVWXYZ';
while (length($password) < $length) {$password .= substr($possible, (int(rand(length($possible)))), 1);}return $password}

##</code><code>##

__DATA__
dn: uid=1234567,ou=people,dc=abc,o=oursite.com
objectClass: posixAccount
objectClass: shadowAccount
objectClass: account
objectClass: top
uid:  1234567
cn:  1234567
uidNumber:  31472
gidNumber:  7546
gecos:  First Last,ABCDEFG297,#######
homeDirectory: /home/1234567
loginShell:  /bin/csh
userPassword: xyz456    <==constant line