perl script to read through the file