PERL ASSIGNMENT HELP WHO AM I