Perhaps I'm daft but I've always preferred DBI's fancy form of binding directly to hash variables.

(direct quoting from DBI)
Here's a more fancy example that binds columns to the
values inside a hash (thanks to H.Merijn Brand):

$sth->execute;
my %row;
$sth->bind_columns( \( @row{ @{$sth->{NAME_lc} } } ));
while ($sth->fetch) {
  print "$row{region}: $row{sales}\n";
}
[download]

__SIG__
printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::
+svref_2object(sub{})->OUTSIDE
[download]