My learning perl code notes