make variables, not perl variables, refactoring