Select Code to Download

'sub {
    my( $call_ids, $call_id, $index ) = @_;
...
        $call_ids->{$call_id}{$index}{ route },
        $corrected_route;
}'

$agg_snippets{ $_ }{snippet} = eval $agg_snippets{ $_ }{snippet} for k
+eys %{ $agg_snippets };

 for my $this_call_id ( sort keys %$call_ids ) {
     $count++;
...
         }
     }
 }