$ ./window.pl %output = ( 'bedroom 2_120_180' => 1, 'office 1_120_120' => 3, 'bedroom 2_100_75' => 2, 'office 1_155_135' => 1, 'office 1_140_135' => 1 );