sub rand_elt { $_[rand @_] } 

##</code><code>##

sub rand_elt {
    my @keys = @_;
    my $num_keys = scalar @keys;
    my $random_index = int( rand($num_keys) );
    return $keys[$random_index];
}