Are your records terminated with newlines or are they fixed length? Your call to sysread looks very wrong. If the records are terminated by newlines, use <INFILE> to read a record. If they are fixed length, the third argument to sysread should be the record length and you shouldn't use the fourth argument.

This might make the first part work. Extending it to the second part is up to you.

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;
    ....
}
[download]