Help for this page
my %freq; while (<$fh>) { ... $score += $freq{$_} for split //, $word; return $score; }
aahs aals ... zori zouk zyme