use Data::Alias qw( alias );

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

##</code><code>##

use Data::Alias qw( alias );

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