@stat_array = ("ibfarm102  - localtick", "Boston" , "hibmis100 -  procHKHD2 - Hongkong", "PidMonRsp", 
"eufarm102  - localtick", "London", "hibmis100 -  procHKHD2 - Hongkong" , "PidMonReq" , 
"ibfarm102  - localtick", "New York" , "hibmis100 -  procHKHD2 - Hongkong", "PidMonRsp", 
"ibfarm102  - localtick", 'New York", "hibmis100 -  procHKHD2 - Hongkong", "OCOMsg2"); 
my @stat_array_rows = @stat_array;
while (my @stat_array_rows = splice(@stat_array_rows, 0 , 4)) {
  print MAIL "<tr>\n";
  for my $stat_row(@stat_array_rows) {
     #if ($stat_row eq $config_msgtype){
     if ($stat_row =~/OCAlive2/){
        print MAIL "<td><font color=red>$stat_row[0]</font></td>\n";
     }
     else {
        print MAIL "<td>$stat_row</td>\n";
     }
  }
  print MAIL "</tr>\n";
}