for my $i ( 1 .. $N ) {
    my $rndRec = 1 + int rand( 160e6 );
#    printf "Record $rndRec: ";

    my $pos = binsearch( \$idx, $rndRec );
    if( $pos ) {
        seek DATA, $pos, 0;
#        printf "'%s'",
        scalar <DATA>;
    }