open(DAT, $data_file) || die("Could not open file!");
print "file opened successfully!! \n";
$data=<DAT>;