sort関数に関して、質問させていただきます。

sort {$form{$a} <=> $form{$b}} keys %form
このように定義したのですが、これでは未定義の値が数値より上に
きてしまいます。
sort {($form{$a} <=> $form{$b}) <=> ""} keys %form
こんな感じでやったりいろいろ試したのですが、どうしても数字が
上にきてくれません。

ご存知方がいらっしゃいましたら、教えてください。
宜しくお願いいたします。