my perl code for study