my $set = DBM::Deep->new({
    file => 'my_file.db',
});

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