Select Code to Download

#!/usr/bin/perl -w
use Benchmark;
 
...
                quote => q{ quote_eq( \@a1, \@a4 ) }, 
                bquote => q{ quote_eq( \@a1, \@a4 ) },
                loop => q{ loop_eq( \@a1, \@a4 ) } } );

Equal sized strings.
Benchmark: running bquoteDiff, bquoteSame, join, loopBeg, loopMid, loo
+pSame, quote, each for at least 2 CPU seconds...
bquoteDiff:  2 wallclock secs ( 2.02 usr +  0.00 sys =  2.02 CPU) 
...
@ 57423.08/s (n=114961)
     quote:  1 wallclock secs ( 2.11 usr +  0.00 sys =  2.11 CPU) 
@ 32110.27/s (n=67849)