perl practice work