Select Code to Download

$VAR1 = {
          'Room2' => {
...
                      'id' => '1234'
                     },
...

foreach my $room ( keys %{$ret} ) {
        print $room;
...
        print "\n";
}