perl practice