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";
      }
   }