#!/usr/bin/perl -wT

use strict;
use Data::Dumper;

my $roomtype;
my $dim;
my $count;
my %output;

while (<DATA>) {
  chomp;

  # If the first character of the input is a letter, then we're on a new
  # room type
  if (/^[a-zA-Z]+/) {
    $roomtype = $_;
        $dim = undef;
  } else {
    $dim = join('_', split / /);
  }

  if (defined($roomtype) && defined($dim)) {
    my $room = $roomtype . '_' . $dim;

    if (defined($output{$room})) {
      my $cur = $output{$room};
      $cur++;
      $output{$room} = $cur;
    } else {
      $output{$room} = 1;
    }
  }
}

my $data = Data::Dumper->new([\%output], [qw/*output/]);

print $data->Dump;

__DATA__
office 1
120 120
120 120
140 135
155 135
120 120
bedroom 2
100 75
100 75
120 180