(name => 'add subbing for new',
 code => 'my ($a); 
          $a=[1,2,4,8]; 
          my $z = GraphViz::Data::Structure->new(\$a,%title%)->graph->as_canon',
)
%%
(name => 'add actually adding',
 code => 'my ($a); 
          $a=[1,2,4,8]; 
          my $z = GraphViz::Data::Structure->new(\$a,%title%); 
          my $b=[10,20,30]; 
          my $w = $z->add($b)->graph->as_canon',
)
%%
(name => 'tie it together',
 code => 'my ($a); 
          $a=[1,2,4,8]; 
         my $z = GraphViz::Data::Structure->new($a,%title%); 
         my $b=[10,20,30]; 
         $z->add($b); 
         my $c=[$a,$b]; 
         $z->add($c)->graph->as_canon',
)