Select Code to Download

use Benchmark qw(cmpthese);

...
    undef_resize => \&undef_resize,
    empty_resize => \&empty_resize,
});

V:\Web\Distributor>c:\temp\benchEmpty.pl 100
                         Rate undef_it assign_list_of_undefs empty_ele
+ments undef_resize empty_it empty_resize
...
undef_resize          483/s             6%                    6%      
+ 2%           --      -3%          -4%
empty_it              498/s            10%                    9%      
+ 5%           3%       --          -1%
empty_resize          504/s            11%                   10%      
+ 6%           4%       1%           --

@a = ()[0..50];
print $#a;