#Fetch into a hash my @columns = $sth->{NAME_lc}; my %row; $sth->bind_columns(\@row{@columns}); while ($sth->fetch) { print "$_ = $row{$_}\n" for @columns; print "\n"; }