Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more
1234567 FDAT[$ foreach $key (sort keys %fdat) $] [+ $key +] = [+ $fdat{$key} +][$endforeach$]END FDAT
FDAT
[$ foreach $key (sort keys %fdat) $]
[+ $key +] = [+ $fdat{$key} +]
[$endforeach$]
END FDAT