#! perl -slw
use strict;
use Storable qw[ retrieve ];

print time;
my $idx = retrieve '1031021.idx' or die $!;
print time;

open DAT, '+<', '1031021.dat' or die $!;
for( 1 .. 1000 ) {
    my( $id, $offset ) = each %$idx;
    seek DAT, $offset, 0;
    my $vid = <DAT>;
    die 'mismatch' unless $id eq $vid;
    my $data = <DAT>;
}
close DAT;

print time;