DB<127> $self->{exits}=  { kitchen => 42, living => 666 , toilet => "00" }
 => { kitchen => 42, living => 666, toilet => "00" }

  DB<128> @values= values %{$self->{exits}}
 => (666, "00", 42)

  DB<129> $rand_value = @values[rand @values]
 => "00"

  DB<130> $rand_value = @values[rand @values]
 => 42

  DB<131> $rand_value = @values[rand @values]
 => 42

  DB<132> $rand_value = @values[rand @values]
 => 666

##</code><code>##

  DB<134> $h_exits = $self->{exits}
 => { kitchen => 42, living => 666, toilet => "00" }

  DB<135> $random_room = $h_exits->{ ( keys %$h_exits )[ rand keys %$h_exits ] }
 => "00"