while (@row = $sth->fetchrow_array) {

##</code><code>##

print TXT  "\nBOR $data->[3]|$data->[2]|$data->[9]|$data->[10]|$data->[4]|$data->[13]";

##</code><code>##

print TXT "\nBOR ", join("|", @data[3,2,9,10,4,13]);

##</code><code>##

push @data, "\nBOR ", join("|", @data[3,2,9,10,4,13]);