Select Code to Download

print "Selecting.... \n";
$sth=$dbh->prepare("SELECT name,address_number from many_address      
...

        }
close(PA);

push @array, @more_data;

push @array, \@more_data;