Select Code to Download

my %Data = getQueues();

...
        print "$k = $v \n";
    }
}

foreach my $key (keys(%HoH)){
  foreach my $otherKey (keys($HoH{$key})){
...
    my $result = &DO_SOMETHING($value);
  }
}