while (<$fh>) { push @lines, $_; }