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

##</code><code>##

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

##</code><code>##

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