open (IN,"$MODULE::INFO/data_file.txt");
foreach (<IN>) {
    split;