Select Code to Download

$ perl -cw 1126889.pl 
Unquoted string "case" may clash with future reserved word at 1126889.
+pl line 12.
...
syntax error at 1126889.pl line 13, near "1}"
syntax error at 1126889.pl line 36, near "}"
1126889.pl had compilation errors.

if ('EMEA' eq $filename || 'APAC' eq $filename) {
    $res{$date}{$hour}->{PEAK} += $peak;
...
} else {
    print "previous case not true";
}