Which part is giving you trouble? We can only guess, but here are some suggestions:

Change the query to SELECT name, email FROM People... for two reasons. One, to get in the habit of selecting only the columns you need. Two, so that you know what you're getting back and in what order.

(You should also look up prepared queries in the DBI documentation, because it's really easy to allow bad data into a query to get the wrong results or to make a security hole. For now, this isn't a problem if you're the only one who runs this program, but look up this information as soon as you get the program working and then change the program to use them.)

This is always going to be true because you're not comparing $index to "1". You're assigning "1" to $index. You should instead write if $index == 1 for two reasons. First, it's a numeric comparison, so you need to use the numeric equality operator. Second, it's a numeric comparison, so you can leave 1 as a numeric literal and not a string literal. With that all said, you don't need $index at all because...

while (@results = $query1->fetchrow_array()) {
    foreach(@results) {
[download]

... you don't need the for loop. If you've only selected the name and email columns from the database, you can more easily and simply write:

while (my ($name, $email) = $query1->fetchrow_array())
{
    print "\nName: $name\nEmail: $email\n";
}
[download]

(You don't even have to select the name column because you're searching on it, but you get the point.)

I'll one-up you with bound columns. (Perhaps not for the beginner, though.)

$query1 = $conn->prepare(q{SELECT name, email FROM ...});
$query1->execute(...);
$query1->bind_columns( \my ($name, $email) );
while ($query1->fetch) {
    print "\nName: $name\nEmail: $email\n";
}
[download]

They're just magic. And among the cleanest and most efficient interfaces DBI provides.

my $query = "SELECT * FROM People where Name = '$console'";

my $query = "SELECT * FROM People where Name = ?";
# later:
$query1->execute($console);
[download]

my @results;
while (@results = $query1->fetchrow_array()) {
    print "Name : $results[1], Email: $results[2]\n";
}
[download]

Generally, first row consist of ID. That's why, Here I'm assuming that after ID the 1st column is for name and 2nd column is for email address. Please, use the correct column number as in your table.

Also, for printing all the rows, you can use like this:

my @results;
while (@results = $query1->fetchrow_array()) {
   foreach my $r (@row) {
    print "$r\n";
   }
}
[download]

Regards, CKJ

Here I'm assuming that 1st column is for name and 2nd column is for email address, you can use the correct column number here.

Since Perl arrays are zero-based, your

print "Name : $results[1], Email: $results[2]\n";
[download]

should be

print "Name : $results[0], Email: $results[1]\n";
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics