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.