my $sth = &FireSql($dbh, 'select * from table1 order by x');
while( my $line = $sth->fetchrow_hashref() ) {
  my $sql = "UPDATE table1 set x='done' where id=$line->{id}";
  $dbh->do($sql) or die $dbh->errstr;
}