use strict;

my @labels = qw(my one word labels);

my @graphdata = (\@labels);

my @sets = ();

# looping and data building, fillings @sets

foreach my $set (@sets) {
     my $se = [];
     # process $set into $se
     push @graphdata, $se;
}

my $graph; 
# GD::Graph stuff
my $gd = $graph->plot(\@graphdata);