while (my ($key_1,$value_1) = each(%Queues)){
    if ($key_1 eq 'Queues') {
        foreach my $element (@{$value_1}) {
            while (my ($key_2,$value_2)  = each(%{$element}) ) {
                print "$key_2 = $value_2 \n";
            }
        }
    } else {
        print "$key_1 = $value_1 \n";
    }
}