push @{$Word{length$_}},$_ while (<>);