$ perl -e '@names = (["Nan Tregar"], ["Sam Tregar"]); eval { @names = sort { $a->[0] <=> $b->[0] } @names; }; print "ERROR WAS: $@"' ERROR WAS: Sort subroutine didn't return a numeric value at -e line 1.