perl solutions