#!/usr/bin/perl
use MLDBM qw(DB_File);
use DB_File;
use Fcntl ;
use Data::Dumper;
$Data::Dumper::Indent=1;
$Data::Dumper::Terse=1;
binmode(STDOUT, ":utf8");

my $x= tie %h, 'MLDBM', "calao.dic.db", O_RDWR , 0640, $DB_BTREE;

for my $i (keys %h){
  my $j=firstchoice($i);
  print "\nTERM=$j\n";
  print "VARI=$i\n";
  if(ref($h{$i}) eq "ARRAY"){
    for my $a (@{$h{$i}}){
      print "SENSE=", Dumper($a);
    }
  }
  else{ print "SKIPED"; } ## { Dumper($h{$i}); }
  print "\n";
}
untie %h;



sub firstchoice{ my $a=shift;
 while($a =~ s/\|.*?(?=[()]|$)//g 
    or $a =~ s/\*[A-Z]?//g
    or $a =~ s/[()]//g){};
 $a;
}

#     for( keys %$a){
#        print "\t$_: $a->{$_}\n";
#     }