foreach $key (keys (%data)){