$sth->execute( @arg ); my $row = 0; while( defined( my $r = $sth->fetchrow_arrayref )) { ... # do stuff with $r .... ++$row; } print "fetched $row row(s)\n";