my @tests = (\&test1,\&test2,\&test3,&test4); # 20 odd refs here
my $test = 1;
foreach my $subref (@tests) {
    print STDERR "Test # $test++\n";
    foreach my $size (1..1000) {
          $subref->($arg1,$arg2,$size);
    }
}