I'm trying to make a perl animation, and the program is not detecting collisions properly with the