my @lines;
{ local @ARGV = $file; @lines = <> }