Working on perl script to parse txt file and write to excel