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