eval { use strict; () = sort { @$a <=> @$b } ([1], [2], 13) };
warn "Your error I believe: $@";