unshift @_, map { $. = (length) - $|--; $_ } shift;