sort {$a eq "foot" ? -1 :
      $b eq "foot" ?  1 : $a cmp $b} keys %hash;
[download]

Next time, please pick a more suitable title. Your question has nothing to do with hashes, just with sorting. The fact you happen to sort hash keys doesn't make the answer any different.

Abigail