There's a whole lot going on in that one line ... including one of Perl's most pragmatic features, "auto-vivification." New words are automatically inserted into the $words array (with value 0) if they do not yet exist there. Much easier to do in Perl than with most other languages.