Perl Assignment part 1 & 2