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