substr($value,$F[1]-1,1) = $F[3];
use 'next' instead of 'last'
added seek(IN,0,0);