rand随机抽奖

use strict;
my %hash=
(
    '001'=>'张三',
    '002'=>'李四',
    '003'=>'王五',
    '004'=>'刘六',
    '005'=>'陈七',
);
my @pool=keys %hash;
my $i = @pool; # $i是数组的长度

for(@pool){
    print "Press ENTER key to continue!nEnter 'exit' to exit the programmen";
    exit if <>=~/exit/i;
my $n; #存放随机数

$n = rand($i--);
print $pool[$n],": ",$hash{$pool[$n]}," win!n";
#print $i."n";
$pool[$n] = $pool[$i];  #因为此时$pool[$n]已经被rand随机选举出来，
#之后@pool中角标为$n的元素相当于被丢弃，此语句将@pool最后一个元素赋值（填充/补缺）给$pool[$n];
}
print "Over! press Enter to exit!";
<>;