foreach $key (sort keys %element) {

##</code><code>##

foreach $key (sort keys %{$element}) {