simple challenges in perl