foreach (@Geo_areas) {

      $_ or next;

      my $Return_results = "Select * from Result_storage_keep where Aggregated_area LIKE '".$_."' \;";
                
      my $sth_C = $dbh->prepare($Return_results) or die "Couldn't prepare query: ".$dbh->errstr;
      
      $sth_C->execute() or die "Couldn't execute query: ".$sth_C->errstr;
      
    while (my @row = $sth_C->fetchrow_array) {
	foreach (@row) { 
	  
	  $_ = '' unless defined;
	}
	print OUTPUT_FILE join("\t", @row);
	print OUTPUT_FILE "\n";
	undef @row;
      }
  }