my @stack; push @stack, $foo; my $saved_value = pop @stack; #### my $moose_stack = MyApp::MooseStack->new(); $moose_stack->add_item($foo ); if ( $moose_stack->has_item ) { $saved_value = $moose_stack->pop_item; }