use Devel::Peek;

sub sub1(*) {
    print STDERR "args(1)\n";
    Dump($_) for @_;
    sub2(@_);
}

sub sub2(*) {
    print STDERR "args(2)\n";
    Dump($_) for @_;
}

sub sub3(*) {
    print STDERR "args(3)\n";
    Dump($_) for @_;
    sub2(@_);
}

sub1 Bareword;
sub3 Bareword;
sub2(@{[Bareword]});