fixed void context perl warning