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