Help for this page
for my $key ('Foo', grep { $_ ne 'Foo' } keys %HoA) { ... }
for my $key ( exists $HoA{Foo} ? ('Foo') : (), ... { ... }