perl quiz