foreach $key (keys (%data)){

##</code><code>##

foreach $key (sort keys (%data)){