learning from book advance perl