perl env juggling