@words = do{ local( @ARGV, $/) = 'words.txt'; <> };;

print scalar @words;;
178691

undef @words{ @words };;
print total_size( \%words );;
14 224 469 ## Spaces added for clarity!