Select Code to Download

          $ra  cmp $rb      || # this is number.  Shouldn't this be <=
+> ?

#!/usr/bin/perl -wl
use strict;
...
    @data = @data[ 6, 5, 0, 1, 2, 4, 3 ];
    return \@data;
}

C:\>perl test.pl
Benchmark:
...
     mkmcconn: 69 wallclock secs (68.61 usr +  0.00 sys = 68.61 CPU) @
+ 72.88/s (n=5000)

      Ovid: 32 wallclock secs (32.68 usr +  0.00 sys = 32.68 CPU) @ 15
+3.00/s (n=5000)