my %Data = getQueues();

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

##</code><code>##

while (my ($key,$value) = each(%Data)){
    if (ref $value eq 'ARRAY') {
        for my $hashref (@$value) {
            print "  $_ => $hashref->{$_}\n" for keys %$hashref;
        }
    } else {
    print "$key = $value \n";
}