for $i5(0..$#data)
        {
                $data3 = $data3.", ".$data[$i5];
        }
        $data3=substr($data3,2);
        $data3=[$data3];
$c->addBarLayer($data3);