Select Code to Download

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

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