Help for this page
for $i (@phrase) { $wordfreq{"$phrase[ $j ]"}++; # print "$wordfreq{\"$phrase[ $j ]\"} appears $wordfreq{\"$phrase[ +$j ]\"}\n"; $j++; }
for my $word (keys %wordfreq) { print "$word appears $wordfreq{$word} times\n"; }
www.com | www.net | www.org
No recent polls found