my %set;
tie %set, 'DBM::Deep' => { file => 'my_file.db' };

my @keys = keys %set;
my $chosen_key = $keys[ rand @keys ];
my $chosen_value = delete $set{ $chosen_key };