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

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