my %Data = getQueues();

while (my ($key,$value) = each(%Data)){
    #print "$key = $value \n";
    for(my ($k,$v) = each($Data{$key}->{'Queues'})){
        print "$k = $v \n";
    }
}