foreach my $key (keys %$x) {
        ...
    }