while ($buffer = <INFILE>) {
    chomp $buffer;
    my ($server,$ip,$api,$calls) = (split('|',$buffer))[0,9,3,4];
    $totalsentrycalls++;
    $count_by_sentry_server{$server}++;
    $count_by_ip{$ip}++;
    $count_by_api{$api}++;
    $count_by_api_exec{$api}{$totalsentrycalls}=$calls;
    ....
}