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

##</code><code>##

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

##</code><code>##

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