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