my @stack;
push @stack, $foo;
my $saved_value = pop @stack;