$b = shift @a; # could be written as $b = splice @a, 0, 1;