$ perl -we'@_ = sort { "" } 1,2'
Sort subroutine didn't return a numeric value at -e line 1.

$ perl -we'@_ = sort { !1 } 1,2'