$ perl -le 'print prototype("CORE::splice")//"undef"'
\@;$$@