foreach my $f (@{$element_liste_ref->{liste}})