Select Code to Download

{
    local $" = "\n";
...
        print FINAL "@row\n\n";
    }
}

{
    local $, = "\n";
...
        print FINAL @row, "\n";
    }
}

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