Select Code to Download

   %windows = (
      "office 1"  => ("120 120" => 3,
...
      "bedroom 2" => ("100 75"  => 2,
                      "120 180" => 1),
   );

   Key       Value
 -------     -----
 120 120       3
 140 135       1
 155 135       1

   foreach my($room, $measurements_hashref) (each %windows) {
      print "$room\n";
...
         print "$measurements $count\n";
      }
   }