perl script push modified