use Data::Dumper;
my $stmt = "SELECT ...";
my $sth = $dbh->prepare( $stmt ) or die $dbh->errstr;
$sth->execute() or die $dbh->errstr;

while( my $row = $sth->fetchrow_arrayref ) {
  print 'naechste Zeile: ' . Dumper( $row );
}