#!/usr/bin/perl_parallel -w
# For Emacs: -*- mode:cperl; mode:folding; coding:utf-8; -*-

use strict;
use utf8;
use DB_File;
use MLDBM qw (DB_File Storable);         # ) 
use Fcntl;

my $dbfile = 'database.utf';
my %data = ();

tie ( %data, 'MLDBM', $dbfile, O_CREAT | O_RDWR, 0666, $DB_BTREE ) || die $!;

open DATA, '<:utf8', 'input.utf8' or die $!;
while (<DATA>) {
  chomp;
  my ($key, $value) = split(':', $_, 2);
  $data{$key} = $value;
}
close DATA;
print join(', ', keys %data), "\n";

exit 0;