1 my %hoa = (
2   10 => [ "fred", "barney" ],
3   20 => [ "george", "jane", "elroy" ],
4   30 => [ "homer", "marge", "bart" ],
5 );
6 my $ary = $hoa{$some_number};
7 return $ary->[rand @$ary];