Select Code to Download

$ cat 11104497.pl
#!usr/bin/local/perl
use strict;
...

print "$_ occured $count{$_} times\n" for @sorted_by_count[ 0 .. 9 ];

$ cat janne.txt
This is a test.
...
this occured 1 times

$