perl more examples