In Perl the 'my' keyword only needs to be once per block. It is harmless to use it twice, but the attached patch removes all the warnings like this in the test suite:
"my" variable $arg1 masks earlier declaration in same scope at
./tests/factor/factor.pl line 105.
Collin
