use DB_File;
use Fcntl;

$tie = tie(@lines, $FILE, O_RDWR, 0666, $DB_RECNO)
   || die   "Cannot open file $FILE: $!\n";
# extract it
$line = $lines[$sought-1];

use DB_File;
use Fcntl;

@ARGV == 2 or
    die "usage: print_line FILENAME LINE_NUMBER\n";

($filename, $line_number) = @ARGV;
$tie = tie(@lines, "DB_File", $filename, O_RDWR, 0666, $DB_RECNO)
        or die "Cannot open file $filename: $!\n";

unless ($line_number < $tie->length) {
    die "Didn't find line $line_number in $filename\n"
}

print $lines[$line_number-1];                         # easy, eh?

acceptableness 1771055 1003
acceptably 1772058 990
acceptance 1773048 9799
acceptancy 1782847 516
acceptant 1783363 1379

% pmpath Search::Dict
/usr/local/lib/perl5/5.14.0/Search/Dict.pm

$dbh->seq($key, $value, R_CURSOR);
    INCREMENTAL_MATCH:
        until ($dbh->seq($key, $value, R_NEXT)) {
            my($user_key, $user_value) = ($key, $value);
            for ($user_key, $user_value) { s/^[kv]\a//i }
            if (index($user_key, $norm_name) != 0) {
                last INCREMENTAL_MATCH; # too far
            }
            push(@user_keys, $user_key);
            if ( $Max_List_Returns && @user_keys >= $Max_List_Returns) {
                return @user_keys;  # short-circuit for lengthy returns; e.g. "p"

$DB_BTREE->{compare} = \&norm_cmp;
$DB_BTREE->{flags} = R_DUP;

db_handle = tie(%tied_btree_hash, "DB_File", $dbase_element, O_RDONLY, 0666, $DB_BTREE);

my $off_t = 0;
print OUTPUT pack("Q" => 0xDEADBEEF);  # make this one-based, not zero-based

while (my $line = <INPUT>) {
    print OUTPUT pack("Q" => $off_t);
    $off_t = tell INPUT;
}

 my $db = tie(%DB, "DB_File", $dbase_dbname, O_RDWR|O_CREAT, 0666, $DB_BTREE)
    || die "can't access $dbase_dbname: $!";

open(INPUT, "< $dbase_srcfile")
    || die "can't open $dbase_srcfile: $!";

binmode(INPUT, ":raw")
    || die "can't binmode to :raw! -> $!";

while (my $line = <INPUT>) {

    my($uniprod_id, $bio_names) = split /~\|~/, $line, 3;

    $bio_names = binary_to_utf8($bio_names);
    my $norm_names = normalize($bio_names);

}