perl argument update