{
    local $" = "\n";
    while ( my @row = $sth->fetchrow_array ) {
        print FINAL "@row\n\n";
    }
}