Or use bind_columns ...

my %info;
my $sth = $dbh->prepare ("select * from mytable where lastn = ? and us
+ername = ? ") or
    die "Can't select: ", $dbh->errmsg;
$sth->execute ($lname, $username);
$sth->bind_columns (\@info{@{$sth->{NAME_lc}}});
if ($sth->fetch) {
    print "Username: $info{username}\n";
    :
    }
[download]