Select Code to Download

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

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