while (<FH>) {
    chomp;   # removes the newline from $_
    push (@lines, $_);
}