Did you actually verify that it's disk IO that's slow, and not the rest of the program? Devel::NYTProf might help you finding out.

That said, there is a way to improve IO speed. Perl's normal open, read and readline functions use IO layers, which you can circumvent by using sysopen and sysread.