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