for my ($key, $value) (f()) {
    say $key;
}