commit perl practice