Komen faire un tableau d'un fichier en Perl?

Bonjour

Je dois faire un exo en Perl dans lequel je dois comparer le contenu d'un fichier avec le contenu d'un texte que j'ai tapé simplementsur la "Konsole"(je travaille avecWinows)...
Donc j'ai mis les mots du texte tapé dans un tableau (tout va bien) et puis il faut que je mette le contenu d'un fichier .txt (qui est un texte de Rousseau)...et là : probleme ! :
donc j'ai ouvert mon fichier avec la commande open...or die...
la ça va mais aps ca j'ai ecrit dans mon script :
while ($ligne=<$fic>) {
@tab_motsfic=split (" ",$ligne);
}
et là, la prof m'a dit que ça ne me prendrait que la derniere ligne du fichier pour la comparaison...

Pourriez vous m'aider svp ????
Merci