perl solutions 11-20