Select Code to Download

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

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

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

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