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