learning perl practice