Select Code to Download

  sub listc {
      my $lcm     = List::Compare->new(
...
      my @int     = $lcm->get_intersection();
      my $intref  = $lcm->get_intersection_ref();
  }

  Benchmark: timing 10 iterations of listc, mistc...
       listc: 91.58 usr
...
  Benchmark: timing 100 iterations of listc, mistc...
       listc: 731.89 usr
       mistc: 753.57 usr

  *amistc = \&mistc;

...
  Benchmark: timing 100 iterations of amistc, listc...
      amistc: 734.79 usr
       listc: 754.06 usr