open(FILE, $file);
@LINES = <FILE>;
close(FILE);