while ($row=$sth->fetchrow_hashref) {
  foreach $col (%{$row}) {
    print "$col: ".$$row{$col}."\n";
  }
}