#output database results

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

print FINAL "@row\n" }

close FINAL;