Print invisible dans le boucle while en Perl

Bonjour,

j'ai fait un script en Perl qui vas lance une boucle qui utilise un snmpwalk . Je ne comprends pas pourquoi les print à l'intérieur de la boucle while ( while ($j=0){) ne s'affichent pas, alors que quand je la supprime j'ai le résultats suivant:

voip ~ # ./test_RTT1.pl
UCD-SNMP-MIB::ucdavis.52.101.1 = STRING: "17"

le RTT est de : "17"

la valeur 1500 est eliminee, on a un RTT de taille 1
la moyenne du RTT est de :17


Ci-dessous mon script:
#!/usr/bin/perl
#$i=0;
$j = 0;

while ($j=0){
sleep 5;

#system ("/usr/bin/snmpwalk -c public -v 1 192.168.0.13 .1.3.6.1.4.1.2021.52.101.1");
$SNMP = `/usr/bin/snmpwalk -c public -v 1 192.168.0.13 .1.3.6.1.4.1.2021.52.101.1`;
print "$SNMP\n";
@RTT1 = split (/ /, $SNMP);
$RTT = @RTT1 [3];
print "le RTT est de : $RTT \n";
@cols = split (/"/, $RTT);
if (@cols[1] != 1500){
push (@RTTf, @cols[1]);
}

$sizef = scalar @RTTf;
print "On a $sizef valeurs de RTT \n";
$moyenne=0; }

$moyenne = $moyenne / $sizef;
print "la moyenne du RTT est de :$moyenne \n";

}


Quelqu'un comprend pourquoi les print ne s'affichent pas?
for ($i = 0; $i < $sizef; $i++){
$moyenne = $moyenne + @RTTf[$i];