foreach my $key (sort keys %lexica) {
   foreach $counter (keys(%{$lexica{$language}{$word}} )) {
      print $key "~$lexica{$language} \/$lexica{$language}{$word}{$counter}\/ \n";
      }
   }
}