fixed error with perl strict mode