$b = pop @a; # could be written as $b = splice @a, -1, 1;