print "var data_run=[$row_array{$key}{'pend'}];\n";
print "var data_pend=[$row_array{$key}{'run'}];\n";

##</code><code>##

print "var data_running = [$var_data_running]; \n";
print "var data_pending = [$var_data_pending]; \n";
<br>
Here the if and else statements variables are printed outside in perl cgi format<br>
<c>	
 while(my @row_array=$sth->fetchrow_array)
    {
        if ($tmp == 0) {
        $var_data_running .= "\[\"$row_array[0] \($row_array[2]\)\",$r
+ow_array[2]\]";
        $var_data_pending .= "\[\"$row_array[0] \($row_array[1]\)\",$r
+ow_array[1]\]";
        
        $tmp++;
        }
        else {
        $var_data_running .= ",\[\"$row_array[0] \($row_array[2]\)\",$
+row_array[2]\]";
        $var_data_pending .= ",\[\"$row_array[0] \($row_array[1]\)\",$
+row_array[1]\]";
        }
    
    }