adjusting perl var to get in correct path