It doesn't matter :) perl's seek is an interface to the underlying operating system c runtimes fseek function -- there is nothing you can do to speed it up short of upgrading hardware / hardware drivers

On a related note, see Suffering From Buffering, 4k read buffer is too small