$chars[ord $_]++ for split //, $line;