my $soap = SOAP::Lite->uri( $_[1] )->proxy( $_[2] )->getAllBrokerInfo(); my @brokerInfos = @{ $soap->result }; for ( $i = 0 ; $i < @brokerInfos ; $i++ ) { $broker = @brokerInfos[$i]; #Get all values for each Broker - works #my @values = values %$broker; #foreach my $value (@values){print "$value\n";} #Get all keys for each Broker - works #my @keys = keys %$broker; #foreach my $key (@keys){print "$key\n";} #Get the values for all keys for each Broker - works #while (($key,$value) = each(%$broker)) { # print "$key $value\n"; #} #Get the value for key engineWeight by iterating through all keys - works while (($key,$value) = each(%$broker)) { if ( $key eq "engineWeight" ) { print "$key $value\n"; } } #Just get value for engineWeight for each Broker - does not work print "%$brokers{'engineWeight'}\n"; }