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

##</code><code>##

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