Perl- Tester le résultat d'un grep

Bonjour,

Voilà la question est dans le titre mais pour être plus précis voilà ma situation

J'ai remarqué que

  $y = grep /fifi/i , <FIC>  

me renvoie 0 ou 1 suivant que le mot fifi se trouve dans FIC ou pas

or j'ai écrit le bout de code suivant:

@x= ("fifi","fafa");
for ($j=0;$j<=1;$j++)
{
		
               open (FIC,'+<toto.txt') || die("Pb d'ouverture\n");
               open(OUT,"+>>toto.tmp" ) or die ("Echec ouverture du fichier\n") 
	
               $y= grep /$x[$j]/i, <FIC>;
	
                 
	
	if ($y == 0){
	 	print OUT "Le grep n'a rien renvoyé\n" ;
	}
	else {
	               print OUT grep /$x[$j]/i , <FIC>;
	}

Lorsque je lance ce script avec fifi qui ne se trouve pas dans le fichier texte et fafa qui s'y trouve, j'ai l'impression au vu du fichier temporaire qu'il rentre toujours dans le bloc if.

Pourriez vous m'éclairer svp?

(P.S: soyez indulgents si j'ai écrit de grosses bêtises, je débute...)