fix perl warning

Signed-off-by: Bao Haojun <baohaojun@gmail.com>