Select Code to Download

use Data::Alias qw( alias );

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

use Data::Alias qw( alias );

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