Select Code to Download

    foreach $table(keys %tableNum){
         my $sth = $dbh->prepare($sqlbyTabs{"$table"}) || die("Unable 
+to perpare statement");
...
           map{$Data{$h}{$tableFts{$table}[$_]} = @{$results[$row]}[$_
+]}1..$#results->[$row]; <br>
         }
    }