my $sth = $db->prepare($sql) or die $db->errstr;
$sth->execute or die $db->errstr;
while( my $h = $sth->fetchrow_hashref ) {
    for my $k (keys %$h) { # also see each()
        print "$k: $h->{$k}\n";
    }
}