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

##</code><code>##

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