Select Code to Download

my (@tables, %map);
my $q = $dbh->prepare("show tables");
...
    }
    $q->finish;
}

my $table_name = "CDR";
my $sql = "select ".join ",", map { "sum($_)" } @{$map{$table_name}};
$sql .= " from $table_name where Date = ? and Hour like ?";