while (my ($col1,$col2) = $sth->fetchrow_array()) {
  # ...
}