my $f;
open($f,'<',"bigfile") or die "Could not open file\n";

my $i;
while ($i++<1000000) {
  seek($f,10,0);
  seek($f,3000,0);
}