perl code for learning