for learning perl