read(INPUTFILE, $x, 1);