q(
Benchmark: timing 100000 iterations of C-style, push...
   C-style:  2 wallclock secs ( 3.20 usr +  0.00 sys =  3.20 CPU) @ 31279.32/s (n=100000)
      push:  3 wallclock secs ( 2.63 usr +  0.09 sys =  2.72 CPU) @ 36724.20/s (n=100000)

##</code><code>##

#These "cripple" C-style and push to make it a fair fight, by reinitializing the array each time
Benchmark: timing 100000 iterations of C-style, destroy, push...
   C-style:  4 wallclock secs ( 3.88 usr +  0.00 sys =  3.88 CPU) @ 25779.84/s (n=100000)
   destroy:  2 wallclock secs ( 2.25 usr +  0.08 sys =  2.33 CPU) @ 42918.45/s (n=100000)
      push:  4 wallclock secs ( 3.24 usr +  0.07 sys =  3.31 CPU) @ 30184.12/s (n=100000)

#These do not:
Benchmark: timing 1000000 iterations of C-style, destroy, push...
   C-style: 34 wallclock secs (32.64 usr +  0.00 sys = 32.64 CPU) @ 30633.50/s (n=1000000)
   destroy: 24 wallclock secs (22.72 usr +  0.81 sys = 23.53 CPU) @ 42498.94/s (n=1000000)
      push:  2 wallclock secs ( 2.38 usr +  0.00 sys =  2.38 CPU) @ 419463.09/s(n=1000000)

);

##</code><code>##

@in = (1,2,3,4,5,6,7,8,9,0);
use Benchmark;
timethese(100000,
          {
           'C-style' =>
           '#@in = (1,2,3,4,5,6,7,8,9,0);
           for my $i ( 0 .. $#in ) {
             $i % 2 ? $out2[int($i/2)] = $in[$i] : $out1[$i/2] = $in[$i]; }',
           'push'  =>
           '#@in = (1,2,3,4,5,6,7,8,9,0);
           for my $i ( 0 .. $#in ) {
             $i % 2 ? push @out2, $in[$i] : push @out1, $in[$i]; }',
           'destroy' =>
           '@in = (1,2,3,4,5,6,7,8,9,0);
           while( @in ){
             push @out1, shift(@in);
             push @out2, shift(@in); }'
          });

##</code><code>##

q(
#These "cripple" C-style and push to make it a fair fight, by reinitializing the array each time
   C-style:    1 wallclock secs (  0.57 usr +  0.04 sys =   0.60 CPU) @ 16528.93/s (n=10000)
   destroy:  337 wallclock secs (325.85 usr +  0.28 sys = 326.13 CPU) @    30.66/s (n=10000)
      push: 1033 wallclock secs (983.44 usr +  0.85 sys = 984.30 CPU) @    10.16/s (n=10000)

#These do not
Benchmark: timing 10000 iterations of C-style, destroy, push...
   C-style:   1 wallclock secs (  0.47 usr +  0.03 sys =   0.51 CPU) @ 19762.85/s (n=10000)
   destroy: 339 wallclock secs (321.60 usr +  0.32 sys = 321.92 CPU) @    31.06/s (n=10000)
      push: 655 wallclock secs (641.02 usr +  0.54 sys = 641.56 CPU) @    15.59/s (n=10000)
);

open OUT, ">/dev/null"; select(OUT); $|++; select(STDOUT);
@in = (1,2,3,4,5,6,7,8,9,0);
use Benchmark;
timethese(10000,
          {
           'C-style' =>
           '#@in = (1,2,3,4,5,6,7,8,9,0);
           for my $i ( 0 .. $#in ) {
             $i % 2 ? $out2[int($i/2)] = $in[$i] : $out1[$i/2] = $in[$i]; }
             print OUT @out1,"\n";
             print OUT @out2,"\n";',
           'push'  =>
           '#@in = (1,2,3,4,5,6,7,8,9,0);
           for my $i ( 0 .. $#in ) {
             $i % 2 ? push @out2, $in[$i] : push @out1, $in[$i]; }
             print OUT @out1,"\n";
             print OUT @out2,"\n";',
           'destroy' =>
           '@in = (1,2,3,4,5,6,7,8,9,0);
           while( @in ){
             push @out1, shift(@in);
             push @out2, shift(@in); }
             print OUT @out1,"\n";
             print OUT @out2,"\n";'
          });