Select Code to Download

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