init Learning Perl and done chapter 1