init perl learning