perl -d:TraceCalls=Subs,FillListe script.pl

##</code><code>##

sub FillListe {
   my ($numclient, $ref, @params) = @_;
   $dbgfill++;
   ...
}