Salut à tous

Je débute en perl (je viens de php) et je bosse sur un script que je n'ai pas programmé.
Il y a une variable (un objet je pense) $main::Obj_Type_sysProg{'panier'} qui contient une valeur mais je n'arrive pas à trouver où cette valeur lui a été affectée.

Autrement dit, j'ai toujours des if($main::Obj_Type_sysProg{'panier'}) ou encore des quelquechose=$main::Obj_Type_sysProg{'panier'}
mais jamais de
$main::Obj_Type_sysProg{'panier'}=quelquechose

(même chose pour $Obj_Type_sysProg{'panier'})

Quelqu'un aurait une idée?

Merci d'avance.