perl study