Execution multi CPU ?

Bonjour,

Quelle est la meilleur solution pour exécuter ce code Perl en temps minimum ?
J'ai un mac 10.6 avec 4 G de RAM
Dans les autres forums on parle de multi-threading, est-ce vraiment plus rapide ?

Le hash que je vais remplir dépasse le 50 millions d'entrées


!usr/bin/perl

use warnings;
use strict;
use threads;
open(R1 ,"<$ARGV[0]") || die " problem in oppening $ARGV[0]: $!\n";
my %dict1 : shared;
my $i=0;
while (my $l = <R1>){
chomp($l);
$l=~ s/\s$//;
$l=~ s/^\s//;
if ($l=~ /(.*)\s(.*)/){
$i++;
#print $1,"\n";
#my $t = threads->create($dict1{$1}++);
$dict1{$1}++;
}
}
print $i, "\n";
close R1;