Or simply do like so:

use warnings;
use strict;
use feature 'say';

my $ret = {
    room1 => { tag => 5,  status => 'lazy',   id => 5823 },
    room2 => { tag => 10, status => 'active', id => 1234 },
};

for my $room ( sort keys $ret ) {
    say $room, ' : ', join "\t" => %{ $ret->{$room} };
}
[download]