Fixed past perfect & problem in perl script