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"