Select Code to Download

$array[int(rand(scalar(@array)))];

$hk = (keys %hash)[int(rand(scalar(keys %hash)))];
$hv = $hash{$hk};

@arr = keys %hash;
$hk = $arr[int(rand(scalar(@arr)))];
$hv = $hash{$hk};