Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
use IO::Zlib;
...
$count{$_}++ for map { (split /\|/)[2] } <$fh>;

printf "%-10s %4d\n", $_, $count{$_} for sort keys %count;

Select or download this
```
CHECK         3
KCEHC         1
```