Some variable values were missing and perl constructs failed.

Initialized the variables and refactored the gcov functions.