Add actual perl solution to challenge 100