use strict;
use warnings;
use Data::Dump qw/pp dd/;


sub foo {
    warn pp \@_;
    push @_,@_+1
}

sub tst {
    &foo;
    &foo;
    &foo;
    warn pp \@_;
}

tst(1);