cleanup data in perl script