Perl Word counter Initial Commit