incorrect use of eq for numeric values

still kind of a perl noob