#!/Perl/bin/perl

use strict;
use warnings;

my %test = ('client'  => {['11211','11111']=>['Z','Y','X'],
	            	            	  
		        		  ['10900','12345']=>['A','B','C']});
				    
				    
				    
foreach my $key_a (keys(%test))
{
	foreach my $key_b (keys(%{$test{$key_a}}))
	{
		foreach my $i(@{$test{$key_a}{$key_b}})
		{
			print $i."\n";
		}
	}
}


##</code><code>##

#!/Perl/bin/perl

use strict;
use warnings;

my %test = ('client'  => {['11211','11111']=>['Z','Y','X'],
	            	            	  
		        		  ['10900','12345']=>['A','B','C']});
				    
				    
				    
foreach my $key_a (keys(%test))
{
	foreach my $key_b (keys(%{$test{$key_a}}))
	{
		print $_ foreach @{$key_b}
	}
}