PERL LEARNING