perl: variable name fix for generated device classes