Create hashword.pl

Added the hashword perl script.