>>328
ごめんな。動作確認してなかった。

@result =
sort { !defined $form{$a} <=> !defined $form{$b} }
sort { $form{$a} <=> $form{$b} }
keys %form;

優先度がnotよりも<=>の方が高いし…