my $itemdata = OPCItemRead ($rightdata[0], $i+1); $rightdata[0]->{lastvalues}->[$i] = $itemdata->{Value}; OPCItemWrite($rightdata[0], $i+1, $rightdata[0]->{lastvalues}->[$i] + 1);