my $graph[$i] = @sub;