@this_line = split(/;/,$_);
$session_id = $this_line[0];
$call_leg_index = $this_line[1];
$dur = $this_line[2];
$pdd = $this_line[3];
$call_ids->{$session_id}->{$call_leg_index}->{duration} = $dur;
$call_ids->{$session_id}->{$call_leg_index}->{post_dial_delay} = $pdd;

##</code><code>##

 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;	
    	}
    }
}