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