for my $this_call_id ( sort keys %$call_ids ) { $count++; next if !$this_call_id; my $route_attempts = 0; for my $this_index ( sort keys %{$call_ids->{ $this_call_id }} ) { $route_attempts++; foreach $aggregate_name ( keys(%{$agg_snippets})){ my $this_group_data = eval $grouping_data_eval; my $snippet = $agg_snippets->{$aggregate_name}->{'snippet'}; $summary_data->{$this_group_data}->{$aggregate_name} = 0 if !$summary_data->{$this_group_data}->{$aggregate_name}; $summary_data->{$this_group_data}->{$aggregate_name} += eval $snippet; } } }