Select Code to Download

P:\test>273557.pl8
14:     462
...
84:     1318
92:     382
99:     315

P:\test>273557.pl8
P:\test>273557.pl8
...
84:     1318
92:     382
99:     315

P:\test>273557.pl8
14:     462
...
84:     1318
92:     382
99:     315

P:\test>273557.pl8
14:     462
...
84:     1318
92:     382
99:     315

P:\test>273557.pl8
14:     462
...
84:     1318
92:     382
99:     315

P:\test>273557.pl8
14:     462
...
84:     1318
92:     382
99:     315

#! perl -sw
use strict;
...

$t->stop('Using scalar grep to count occurances');
$t->report;

#! perl -slw
use strict;
...
92:     382
99:     315
     1 trial  of Building an using a lookup list (10.705s total)

        time(s)    original    array/grep     lookup
  original    414.536        ----          -64%      -93%
array/grep    149.685         177%          ----      -81%
    lookup     27.750     1394%          439%      ----

    for my $entry ( @{ $X{$article} } ) {

    for my $entry ( uniq @{ $X{$article} } ) {