my (@qw)=induced(@{ $subgraphs[$d-1] }); print Dumper @qw; }