perl arg update