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