(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";
}

##</code><code>##

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