I have a file consisting of some nodes (and edges) with the coordinates of the nodes. I also need to map some data specific to the nodes that are in form of pie charts.Here is a cropped snipped of the code.

my $index = 0;

if(open(FH, 'layout_coords'))  
{
 while($line = <FH>)    
 {
chomp($line);

@arr = ();
@arr = split('\t', $line );

my $label = $node_labels[$index];

my $x = $arr[0];
my $y = $arr[1];

my $x1 = $x + 20; 
my $y1 = $y + 20;


$canvas->createOval($x,$y, $x1, $y1,-fill => 'green'); ## I need this 
+oval as a pie (I have the data for each node in form of a fixed array
+ like (2,3,1,3), etc.)

$canvas->createText($x,$y, -text => $label);

$index++;
 }
}
else
{ die "can't open file layout_coords: $!"; }

close FH;
[download]