my @lines;  ## This should be my @lines = 0;
while( <FH> ) {
    push @lines, seek FH;
    ...
}