while(my $rr = $sth->fetchrow_hashref()) {
    print "$_: $rr->{$_}\n" for keys %$rr;
}