Select Code to Download

my %Data = getQueues();

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

while (my ($key,$value) = each(%Data)){
    if (ref $value eq 'ARRAY') {
...
    } else {
    print "$key = $value \n";
}