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

##</code><code>##

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