for my $entry (sort keys %{ $ref }) {