foreach my $asset_type ( keys %{$response} ) { $logger->debug("Starting asset_type $asset_type"); my $i = 0; while ($response->{$asset_type}->[$i]) { $logger->debug("\t$asset_type $i:"); foreach my $param ( keys %{($response->{$asset_type}->[$i])}) { # each $i is a hash ref $logger->debug("\t\t$param = $response->{$asset_type}->[$i]->{$param}->[0]"); } $i++; } }