avoid perl warning