Churning through chapter 2 of beg perl