return do { my $arry = $hoa{ (keys %hoa)[rand %hoa] }; $arr->[ rand @$arry ] };