Fix perl warning