my @lines = unpack ("W*", <INFILE>);