my $parser = XML::LibXML->new();
while (my @row = $sth->fetchrow_array()){
  my $doc = $parser->parse($row[0]);
  ...
}