@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";
}

##</code><code>##

<tr>
<td>ibfarm102  - localtick </td>
<td> Boston</td>
<td> hibmis100 -  procHKHD2 - Hongkong </td>
<td>PidMonRsp</td>
</tr>
<tr>
<td>eufarm102  - localtick </td>
<td>London</td>
<td> hibmis100 -  procHKHD2 - Hongkong </td>
<td>PidMonReq</td>
</tr>
<tr>
<td>ibfarm102  - localtick </td>
<td>New York</td>
<td> hibmis100 -  procHKHD2 - Hongkong </td>
<td>PidMonRsp</td>
</tr>
<tr>
<td>ibfarm102  - localtick </td>
<td>New York</td>
<td> hibmis100 -  procHKHD2 - Hongkong </td>
<td>OCOMsg2</td>
</tr>

##</code><code>##

print Dumper @stat_array
$VAR1 = [
         'ibfarm102 localtick',
         ' Greenwich',
         ' hibmis100 procHKHD2 Hongkong ',
         'PidMonRsp'
       ];
print Dumper @stat_array_rows. 
$VAR1 = 'ibfarm102 localtick';
$VAR2 = ' Greenwich';
$VAR3 = ' hibmis100 procHKHD2 Hongkong ';
$VAR4 = 'PidMonRsp';