@color = qw|red green blue|;

$can->create ( 'rectangle',
        $X,   $Y, 
        $X+1, $Y+1,
        -fill => $color[1];
    );