$tri{$_}++ for ( @listeFicDate, @perfDate ) ; delete $tri{$_} for @listeDate ;