BEGIN { # yes the indenting is off, deal with it
 #add the words to check here:
 @evilwords = qw(
+CONTANTS
 anyways
 arbitary
 custemer
 dependan
 existance
 existant
+fomr
+invoce
 paramater
+puchase
+puhs
+sekf
+sucess
 varsion
-fomr
 );
 
 $testcount = scalar(@Support::Files::testitems);