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;