Select Code to Download

sub traditional {
    my $C = $A;
...

Global symbol "$A" requires explicit package name at ./bench.perl line
+ 12.
Global symbol "$B" requires explicit package name at ./bench.perl line
+ 13.

#!/usr/bin/perl -w

...
         array2:  3 wallclock secs ( 3.27 usr +  0.00 sys =  3.27 CPU)
not traditional:  2 wallclock secs ( 2.72 usr +  0.00 sys =  2.72 CPU)
    traditional:  2 wallclock secs ( 1.81 usr +  0.00 sys =  1.81 CPU)