use WordNet::QueryData;

my $x= WordNet::QueryData->new();

delete $x->{data_fh}; 

use DBM::Deep; 

my $h=DBM::Deep->new("wordnet.db"); 

$h->{foo}=$x;