while (defined($line = <F>))
{
    $rec_type = substr($line, 19, 2);
    $rec_counts{$rec_type} += 1;
}