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