use Elric::Lexicon;
my %lexicon = ();
...
$lexicon{'EN'} = Elric::Lexicon->new;
$lexicon{'EN'}->bind('rdbm', 'EN');
...

my $mind_units = 0;

foreach (sort keys %lexicon) {            # iterate all present lexica
  &message("Lexicon $_:\t");              # name the current lexicon
  $mind_units += $lexicon{$_}->info();    # print information about its internals
}