obviously you learned bad perl, not modern perl