@keys1 = (1..1000000); #array names would be modified to match the plug-in code for (my $a = 2; $a < 1000000; $a += 2) { push @keys2, $a; ##array names would be modified to match the plug-in code } my $t0 = time(); #plug the code here print time() - $t0;