perl diamond.pl these are words and not the file names