perldoc -q 'case statement'