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