the next function doesn't require a condition:

if ($sth->rows >= 1) {
  my $sth = ...;
  $sth->execute(...);
  next;
}
[download]

See also the perlsyn manpage.