open (INPUT, "<", $file) || die "File read error";
@line=<INPUT>;
close INPUT;