fix perl variables
Merge pull request #369 from teharrison/master

fix perl variables