my perl learning