my $data3 = [];
for my $i5 (0 .. $#data) {
    push @$data3, $data[ $i5 ];
}
$c->addBarLayer($data3);