D:\>perl -e"print sort { $a <=> $b } undef, 1, undef, 2"
12
D:\>perl -e"print sort { $a <=> $b;undef } undef, 1, undef, 2"
Sort subroutine didn't return a numeric value at -e line 1.