perl practices