for my $key ( keys %{{
    a => 1,
    b => 2,
    c => 3,
    d => 4,
}} ) {
    print "$key\n";
} # for