open (FH, "< $file") or die "Can't open $file for read: $!"; my @lines = ; close FH or die "Cannot close $file: $!";