Vzhleem k tomu ze perl ma asociativni pole tak snad to neni problem ne?

Ctes znaky a inkrementujes danou bunku, jako klic slouzi dane pismeno.

Kdyz tak neco uz je tu
http://perlmonks.thepen.com/64842.html
Akorat misto <STDIN> nahodis vstup ze souboru.