open(INF,$datafile);
@mydata = <INF>;
close(INF);