@diffarray = (test, info, path.....)  ## Its machine generated so can have 15-20 elements too
foreach $element (@diffarray) {
  @{$element}_diffresult = {$element}_subroutine();
}
## The subroutines are also machine generated