sub foo ($this, $that = 'world') {
    warn '@_ contains ', scalar(@_), " elements.\n";
}

foo('hello'); # @_ contains 1 elements.