open(FH, "< $filename") or die ("Can't read file: $!\n");
@the_file = <FH>;