Select Code to Download

while (my ($key1, $data1) = each %$hash) {
    while (my ($key2, $data2) = each %$data1) {
...
              "GA,T", $$data2{plex}, $key1, $$data2{gt};
    }
}