update part of perl array