$TranNum= $fields[12] +1; $fields[12] =~s/$fields[12]/$TranNum/g;