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