my ($self, $response) = @_;    
foreach my $asset_type ( keys %{$response} ) {  
  $logger->debug("Starting asset_type $asset_type");
  foreach my $asset_param ( keys %{$response->{$asset_type}} ) {
    $logger->debug("Top of middle FOR loop asset_param = $asset_param: $response->{$asset_type}->{$asset_param}");
    if ( exists ($response->{$asset_type}->{$asset_param}) ) {
      $logger->debug("\t$asset_type asset_param $asset_param exists: ($asset_param) = $response->{$asset_type}->{$asset_param}"); ## LINE 779
    }
    else {
      $logger->debug("\t$asset_type asset_param $asset_param is an array reference");
      my $i = 0;
      while ($response->{$asset_type}[$i]) {
        foreach my $subkey ( keys %{$response->{$asset_type}[$i]}) {
          $logger->debug("\t\tTesting $asset_type asset number $i (subkey $subkey) =  ($response->{$asset_type}[$i]->{$subkey})");
        }
        $i++;
      }
      $logger->debug("Broke innermost WHILE loop asset_param = $asset_param");
    }
    $logger->debug("Bottom of middle FOR loop asset_param = $asset_param");
  }
  $logger->debug("Broke middle FOR asset param loop");
}