my @factored_eqns = factorize(\@eqn_set,\@variables);
...

    foreach my $term (@{ $equation }) {
    ...