my @order;
for my $key (keys %HoA) {
  ($key eq 'Foo') ? unshift(@order, $key) : push(@order, $key);
}