my @stack;

push @stack, 'something';
push @stack, 'some thing else';
push @stack, ['something', 'a', 'bit', 'more', 'complex'];

my $val = pop @stack;