sub process_command {
    print "\n\n:";
    chomp ($command = <STDIO>);
    $command =~ tr/A-Z/a-z/;

    if ($currentRoom == HALLWAY) {
        hallwayCommand();
    }
    elsif ($currentRoom == BEDROOM) {
        bedroomCommand();
    }
    ... etcetera ...
}