%windows = (
      "office 1"  => ("120 120" => 3,
                      "140 135" => 1,
                      "155 135" => 1),

      "bedroom 2" => ("100 75"  => 2,
                      "120 180" => 1),
   );

##</code><code>##

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

##</code><code>##

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