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