#!/usr/bin/perl
use warnings;
use strict;
use BerkeleyDB;

my( $csv_file, $berk_file) = qw( dict.txt dict );
my $db = BerkeleyDB::Hash->new(
    -Filename => $berk_file,
    -Flags    => DB_CREATE
) or die "Cannot open file '$berk_file': $! $BerkeleyDB::Error\n";
open( DICTE, $csv_file )
  or die "Cannot open file '$csv_file': $!\n";

for (<DICTE>) {
    chomp;
    my($key, $value) = split(/;/,$_,2);
    $db->db_put($key,$value);
}

# the file "dict" is now a BerkeleyDB file with entire
# contents of the CSV file "dict.txt"