open(FILE, "<" . $file) or die ("Can't open file: $!");
my @lines = <FILE>;
close FILE;