add perl solution for ex. 19