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

##</code><code>##

foreach $col (keys %{$row}) {