open(INPUT, $infile);
 my @lines = <INPUT>;
 close(INPUT);