perl TDD: adjusted room info
perl TDD: basement room
perl TDD: subbasement room
perl TDD: validation
perl TDD: validation
perl TDD: validation
perl TDD: validation