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