my %h = f();
say for keys %h;

##</code><code>##

my $i;
say for grep ++$i % 2, f();