Fixed perl warning about uninitialized variable