my %client_list = (   1 => { clientrate => ['banana', 'apple'] }      
+        
                  );
my $session = 1;
foreach my $clientcode ( @{$client_list{$session}->{clientrate}} ) {
        print $clientcode;
}
[download]

gives no warnings

changed the %client_list to $client_list and removed the right curly behind $session.
update:to slow ... *grr*