answer 11 in Perl (wrong!)