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