Cocktail: Fichier, Grep/Regexp, Hash... :-)

Bonjour,

Voila, g un fichier source.txt et un fichier target.txt. Source
contient une liste de chaines de caracteres a rechercher dans
target.txt.
Pour cela, je memorise les strings de Source dans une table de hash.
Ensuite, j'ouvre target.txt et j'y recherche le nombre d'occurences de
chaque clef de la table. Si la clef apparait dans target.txt, j'efface
la clef de la table.

Ca a l'air simple, mais g du mal avec grep essentielement, puisque il
retourne toujours 0...

Je vous copie tout le code pour plus de clarte.
De plus, tous les conseils d'optimisations, sont les bienvenus pour un
debutant comme moi ! :-)

D'avance merci.
MA

-------------------------------------------------------------------
CODE:
#!/usr/bin/perl -w
#!C:\Perl\bin\perl.exe -w

use strict;
use warnings;

my $argc=@ARGV;
if ($argc != 2) {
printf ("USAGE: $0 <SOURCE> <CHECKED>\n");
exit;
}

my $source = $ARGV[0];
my $checked = $ARGV[1];
my %hash = ();

#Get list of tags into a hash table (values/occurences initialized to
0)
open(LIST, $source) or die "Error while opening source file ($source):
$!\n";
while(<LIST>) {
chomp;
next if (length($_) == 0);
$hash{$_} = 0;
}
close LIST;

{
my $nb = keys(%hash);
my @tags = keys(%hash);
printf "\n";
printf "Initialization done - Nb of entries: $nb\n";
printf "Keys: @tags\n";
printf "\n-----------------------------------\n\n";
}

#Perform check on the target file
open MYFILE, $checked or die "Error while opening checked file
($checked): $!\n";

my @list = 1 while <MYFILE>;
my $count;

foreach my $i (keys(%hash)) {
$count = grep(/$i/i,@list);
printf "Found $count occurences for \'$i\'\n";
delete($hash{$i}) if ($count > 0);
}

{
my $nb = keys(%hash);
my @tags = keys(%hash);
printf "\n-----------------------------------\n\n";
printf "Operation done - Nb of entries: $nb\n";
printf "Keys: @tags\n";
}
close MYFILE;
-------------------------------------------------------------------
source.txt:
aaa
bbb
ccc

-------------------------------------------------------------------
target.txt:
lkmdclkmdc.aaa s
ser aaaa
ded.ccc+ddd

-------------------------------------------------------------------
Resultat:
D:\Others\perl>perl -w test2.pl source.txt target.txt

Initialization done - Nb of entries: 3
Keys: bbb aaa ccc

-----------------------------------

found 0 occurences for 'bbb'
found 0 occurences for 'aaa'
found 0 occurences for 'ccc'

-----------------------------------

Operation done - Nb of entries: 3
Keys: bbb aaa ccc

-------------------------------------------------------------------