Help for this page

Select Code to Download

Select or download this

my ($bestVal, $bestKey) = (-1);
foreach my $key (@keys) {
...
    }
}
print "The most frequent word in $ARGV[0] is $bestKey, which was seen 
+$bestVal times.\n";

Select or download this
```
while (my $line = <FILE>) {
```