for $temp (@rArray){
                my $pre;
                my $post = "</span>";
                my ($a1,$b1,$c1,$d1,$e1,$f1,$g1,$h1) = split(/;;/,$temp);
                if ($d1 eq "200"){
                        $pre = "<span foreground=\"#CCCC00\">";
                }
                if ($d1 eq "300"){
                        $pre = "<span foreground=\"#00FF99\">";
                }
                if ($d1 eq "400"){
                        $pre = "<span foreground=\"#900000\">";
                }
                if ($d1 eq "500"){
                        $pre = "<span foreground=\"#6600FF\">";
                }
                $a1 = $pre.$a1.$post;
                $a1 =~ s/&/&amp;/g;
                $b1 = $pre.$b1.$post;
                $b1 =~ s/&/&amp;/g;
                $c1 = $pre.$c1.$post;
                $c1 =~ s/&/&amp;/g;
                $d1 = $pre.$d1.$post;
                $d1 =~ s/&/&amp;/g;
                $e1 = $pre.$e1.$post;
                $e1 =~ s/&/&amp;/g;
                $f1 = $pre.$f1.$post;
                $f1 =~ s/&/&amp;/g;
                $g1 = $pre.$g1.$post;
                $g1 =~ s/&/&amp;/g;
                $h1 = $pre.$h1.$post;
                $h1 =~ s/&/&amp;/g;
                push @{$table->{data}},[$a1,$b1,$c1,$d1,$e1,$f1,$g1,$h1];
        }