This is a perl program that will create the condordance of the words