Adding programming with perl text file