Quiz on Perl Subroutines