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