note zing Ok so I changed the last lines of the code <code> my (@qw)=induced(@{ $subgraphs[$d-1] }); print Dumper @qw; }</code> But still incorrect output <code> component 2 = e d $VAR1 = 'b'; $VAR2 = 'c'; $VAR3 = 'a'; component 1 = c a b b c a $VAR1 = 'b'; $VAR2 = 'c'; $VAR3 = 'a'; </code> 997160 997175