Select Code to Download

my $inner = $ret->{$room};

use strict;
use warnings;
...
        my $inner = $ret->{$room};
        say "\t$_ => $inner->{$_}" for sort keys $inner;
}