while (my ($x, $y) = $sth->fetchrow()) {
  ...