Select Code to Download

my $query;
foreach $query (@astype) {
...
$adlocation = ( join (",", @row));
}
print $adlocation;