while (my $set = $sth->fetchrow_hashref()) {
  # mach was mit hashref $set, z.B.
  foreach (keys %$set) {
    print "$_ => $set->{$_}<br>\n";
  }
  print "<hr>\n";
} # while