sub random
{
    my ( $key ) = @_;
    my @choices = keys %{$Data{$key}};
    my $chosen = $choices[rand @choices];
    return $Data{$key}{$chosen};  # or maybe just return $chosen ?
}