D:\>perl -wle"@a = sort { print qq,$a <=> $b,; $a <=> $b } 2, 3, qq,nan,;print for @a
2 <=> 3
2 <=> nan
nan
2
3