Help for this page
while (<WORD>) { chomp; ... my @chars = split(//, $_); push @{$wordlist{$#chars}}, $_; }
while ( <WORD> ) { chomp; ... push @{ $wordlist{ length() } }, $_; }
www.com | www.net | www.org
No recent polls found