Or moderately more efficiently

  $chars[$_]++ for unpack "c*",$line;
  $chars{$_}++ for unpack "c*",$line;
[download]

Or course unpack returns the ordinal value not the characater..

Yves / DeMerphq
--
When to use Prototypes?