while (my $data = $sth->fetchrow_hashref()) {
  # mach was mit $data, z.B.
  foreach my $field (keys %$data) {
    print "$field => $data->{$field}\n";
  }
} # while