Fixed minor perl warning