Frequency Distributions

while ( <> ) {
 while ( /(\w[\w-]*)/g ) {
    $Words{$1}++; }
}
Підраховує частоту слів на вводі.