use strict;
use warnings;

my @arr;
my %has = qw[ a b c you know me moo moo ];

@arr = keys %has;

warn $has{ $arr[ rand @arr ] }
    for 1..10;
__END__
[download]