Select Code to Download

#!usr/bin/local/perl
#use strict;
...
print "These are the 10 most frequented words of $file_name :\n";

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

:~/projekt$ perl wfreq.pl janne.txt
These are the 10 most frequented words of janne.txt :
...
 occured  times
 occured  times
:~/projekt$