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