my %rec; my $sth = $dbh->prepare ("select region, sales from sales_by_region"); $sth->execute; $sth->bind_columns (\(@rec{@{$sth->{NAME_lc}}})); while ($sth->fetch) { print "$rec{region}: $rec{sales}\n"; }