Select Code to Download

 @data=([@array1],[@array2],[@array3]);  
 my $gd = $graph->plot(\@data) or die $graph->error;

for ($x=1; $x<10; $x++)
{
...
push @data, [ @anotherarray ];
}
 my $gd = $graph->plot(\@data) or die $graph->error;

foreach $file (@files)
{
...


}