perl, int warning added