my $curpos = 0;
my @offset;
$offset[0] = 0;  # 1st line always start at pos 0
while (<$fh>) {
  $offset[++$curpos] = tell $fh;
}

##</code><code>##

seek $fh, $offset[$cur], 0;