for my $key ('Foo', grep { $_ ne 'Foo' } keys %HoA) { ... }