Intro to Perl programming assignment