Select Code to Download

sub using_vec {
   my ($s1, $s2) = @_;
...
  using_str_bit_ops_and_s => sub{ my $r = using_str_bit_ops_and_s($x, 
+$y) },
  using_vec=> sub{ my $r = using_vec($x, $y) },
};

                          Rate               using_vec using_str_bit_o
+ps_and_s
using_vec               51.8/s                      --                
+    -92%
using_str_bit_ops_and_s  672/s                   1196%                
+      --