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