$pdl(0,3) .= -4;