use strict;
use warnings;
use GD::Graph::bars;

my @data;
my $graph = GD::Graph::bars->new( 400, 300 );
for ( my $x=1; $x<10; $x++) {
        my @anotherarray=(1,2,3,4,5);
        push @data, [ @anotherarray ];
}

my $gd = $graph->plot(\@data) or die $graph->error;

open ( my $img, '>file.png') or die $!;
binmode $img;
print $img $gd->png;
close $img;