Select Code to Download

 $var_data_running .= ",\[\"$row_array[0] \($row_array[2]\)\",$row_arr
+ay[2]\]";

my $orun=join(',',@iarray_run); 
print "var data_run=[$orun];\n";

use strict; use warnings; 
use DBI; 
...
print "\n";
use JSON 'decode_json';
my $frjson_data_run  = decode_json( "[$orun2]" );

var data_run=[["adice_short",192],["ncsim_short",84],["ncsim_long",78]
+,["adice_long",39],["normal",30],["other",34]];
wrong-var data_run=[["adice_short",192]["ncsim_short",84]["ncsim_long"
+,78]["adice_long",39]["normal",30]["other",34]];

, or ] expected while parsing array, at character offset 21 (before ""
+ncsim_short",84]["n...") at 1187071a.pl line 38.

var data_run = [["adice_short (192)","192"],["ncsim_short (84)","84"],
+["ncsim_long (78)","78"],["adice_long (39)","39"],["normal (30)","30"
+],["other (34)","34"]]