open(F, "data.txt"); $data = join("",); close(F); @array = split(/\n/, $data);