$count{$_}++ for map { join '|',( split /\|/ )[2,3] } <$fh>;