for my $key ( keys %$hashref ) {
...
}