#!c:\perl\bin\per.exe

use strict;
use warnings;
use DBI;
my $username = 'root';
#my $password = 'ajitteli';
my $database = 'register';
my $server = 'localhost';

my ($fname, $lname, $userid, $email, $lim, $count, @fnames, @lnames, @userids, @emails);
my @charset = (('A'..'Z'), ('a'..'z'));
my $edomain = '@domain.com';
#my $range = $#charset +1; # Note in a scalar context an array returns the number of elements
print "Enter the number of names to generate: ";
chomp($count = <STDIN>);
#print "Enter the number characters per name: ";
#chomp($lim = <STDIN>);
$lim = 6;
for (1..$count){
    $fname="";
    for (1..$lim) {

        $fname .= $charset[int(rand(@charset))];
    }
    push @fnames, $fname;
}
for (1..$count){
    $lname="";
    for (1..$lim) {

        $lname .= $charset[int(rand(@charset))];
    }
    push @lnames, $lname;
}
 for (1..$count){
    $userid="";
    for (1..$lim) {

        $userid .= $charset[int(rand(@charset))];
    }
    push @userids, $userid;
}

for (1..$count){
    $email="";
    for (1..$lim) {

        $email .= $charset[int(rand(@charset))];
        $email .= $edomain;
    }
    push @emails, $email;
}

my $dbh = DBI->connect("DBI:mysql:$database;host=$server", $username)
|| die "Could not connect to database: $DBI::errstr";

#Split the generation and presentation logic so you can reuse the code
for my $fname (@fnames) && for my $lname (@lnames) && for my $userid (@userids) && for my $email (@emails)){


my $dataenter = "insert into login (Firstname, Lastname, Userid, Emailid) values ('$fname', '$lname', '$userid', '$email')";

my $sth = $dbh->prepare($dataenter);
$sth->execute
or die "SQL Error: $DBI::errstr\n";


# my $insert_reg = $dbh->(q{insert into Registration (Student_Name) values (?)}) or die $dbh->errstr;
}
$dbh->disconnect();
print "The database table is updated successfully\n";

"my" variable $lname masks earlier declaration in same scope at entries.pl line
63.
"my" variable @lnames masks earlier declaration in same scope at entries.pl line
 63.
"my" variable $userid masks earlier declaration in same scope at entries.pl line
 63.
"my" variable @userids masks earlier declaration in same scope at entries.pl lin
e 63.
"my" variable $email masks earlier declaration in same scope at entries.pl line
63.
"my" variable @emails masks earlier declaration in same scope at entries.pl line
 63.
syntax error at entries.pl line 63, near ") &&"
syntax error at entries.pl line 74, near "}"
Execution of entries.pl aborted due to compilation errors.

for (1 to count) 

generate 1 random fname 
generate 1 random lname 
generate 1 random userid 
generate 1 random email

connect to database
insert to database 
 disconnect; 
}