perl solutions #25