sub sub1(*) {
    print "args(1): @_\n";
    print scalar $_[0], "\n";
    sub2(@_);
}