[Perl,Tableaux] lire un fichier texte [Résolu/Fermé]

Bonjour à tous,
voici mon fichier .txt
[quote]
titi;ti;français;2
tata;ta;math;5
tutu;tu;anglais;4
tete;te;eps;8
[/quote]
Voici mon code j'ai essayer de mettre mon fichier texte dans un tableau et de le consulter en allant que je l'alllumente car mon tableau s'efface au fur à mesure
[code]
#!/usr/bin/perl
use strict;
my $ligne = undef;
my @tab = undef;
my $i = "tata"
my $j = "ta";
my $tmp = undef;
open my($file), '<', 'ENT_PROF.txt'
or die "Impossible Ouverture Fichier\n";
while(<$file>)
{
# push @tab, [split(/;/, $_)];
@tab=split(/;/, $_);
print ("$tab[0] , $tab[1] , $tab[2] , $tab[3]\n");
if (($tab[0]=$i) && ($tab[1]=$j))
{
$tmp = ("@tab[0], @tab[1], @tab[2], @tab[3]\n");
}
}
print ("$tmp");[/code]
D'avance merci à vous.