open(DATA, $datafile) || die ("Could not open file");
my @rawdata=<DATA>;
close(DATA);