Select Code to Download

my $sth_C = $dbh->prepare(
    "select * from result_storage_keep 
...
            "\n";
    }       
}

# this only works if this array is small-ish
my $areas = join(", ", @Geo_areas);
...
        join("\t", map {$_ ? $_ : "''"} @row),
        "\n";
}