use Data::Alias qw( alias );

my @stack;
alias push @stack, $c;
alias push @stack, $c += 1;
my @a = splice(@stack);