use strict;
use warnings;

sub sub1(*) {
    print "args(1): @_\n";
    sub2(@_);
}

sub sub2(*) {
    print "args(2): @_\n";
}

sub sub3(*) {
    print "args(3): @_\n";
    sub2(@_);
}

sub1 Bareword;
sub3 Bareword;

##</code><code>##

args(1): Bareword
args(2): Bareword
args(3): Bareword
args(2): Bareword

##</code><code>##

args(1): Bareword
args(2): Bareword
args(3): Bareword
args(2): 1