To format the data for javascript use the JSON module
#!perl
use strict;
use warnings;
use JSON 'encode_json';
my @top = (
["adice_short", 254, 192],
["ncsim_short", 0, 84],
["ncsim_long", 41, 78],
["adice_long", 5, 39],
["normal", 170, 30],
["other", 1, 34],
);
my @pend=(); my @run =();
for (@top){
push @pend,["$_->[0] ($_->[1])",$_->[1]];
push @run, ["$_->[0] ($_->[2])",$_->[2]];
}
my $json_data_pend = encode_json( \@pend );
my $json_data_run = encode_json( \@run );
print "var data_run = $json_data_run \n";
poj