Select Code to Download

undef $/;                        #just read the whole STDIN in once:
$_=<>;
...
  $total += $count{$key};
}
print "Total\t$total\n";

ó       18
ô       93
...
$ ls -l test.txt
-rw-rw-r--   1 jeroen   jeroen     150271 Aug 17 11:40 test.txt
[jeroen@rulffk] time: 11:50:04 1 jobs  wd: ~ (12.011Mb)