Day 2 PERL Learning