Day 3 PERL Learning