$ perl -cw 1126889.pl 
Unquoted string "case" may clash with future reserved word at 1126889.pl line 12.
String found where operator expected at 1126889.pl line 12, near "case "EMEA""
        (Do you need to predeclare case?)
Unquoted string "case" may clash with future reserved word at 1126889.pl line 13.
String found where operator expected at 1126889.pl line 13, near "case "APAC""
        (Do you need to predeclare case?)
"my" variable $q masks earlier declaration in same statement at 1126889.pl line 23.
"my" variable $q masks earlier declaration in same scope at 1126889.pl line 24.
"my" variable $tablecontent masks earlier declaration in same scope at 1126889.pl line 25.
syntax error at 1126889.pl line 11, near "){"
syntax error at 1126889.pl line 12, near "}->"
syntax error at 1126889.pl line 12, near "+="
syntax error at 1126889.pl line 12, near "1}"
syntax error at 1126889.pl line 13, near "1}"
syntax error at 1126889.pl line 36, near "}"
1126889.pl had compilation errors.